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■•••COPYRIGHT 1969, DIGITAL rUUI°MENT r C R P.. MAViARO. "ASS.««« 

;THIS SUB-PROGRAM ASSEMBLED -.' I T H SYSTE" PARAMETER PILE - S,MAC(v4i4) 

XLIST 
IFDEF LISTSN, < IFN LlSTSN, <L I ST ; L I ST S.mac IN COMMON ONLY>> 

! S - SYSTEM PARAMFTFR DEFINITIONS FO» PDP-6 AND PDP-10 TI^E SHARP G MONITORS 
i TH/T"/TN"/RCC 34 JU»' 69 

iTHIS IS ASSEMBLED IN FRONT OF EACH SURP»OGRAM IN MONITOR 

DEFINE XP(A.B) iSYSTEM PARAMETER 

<A = B 

INTERNAL A 
> 

■ACCUMULATOR ASSIGNMENTS 



?1 
?2 
:>i 
?4 
?5 
?b 
>! 
2 6 
P9 
.<(£ 
<1 
i2 
.5 3 
"<4 
.<b 
:<6 
<7 
<8 
i9 
1f 
11 
4 2 

43 
44 
4 b 

4 6 
A ! 

48 

4 9 

•p 

'-1 

^2 
H3 



:• MEANS LOA n EO RY U'JO HANDLER ON ALL UUOS 



S WORO(SEE BELOW FOR PITS) 

MES PRESERVED ACCROSS SUB.) 

MES PRESERVED ACCROSS SUB.) 

ER(SEPARATE LIST FOR EACH PI 

H USER JOR 

T. OR JOB NUMBER 

R POINTER FOR COMMANDS . ERROR 

IOR TEMPORARY 
D BUFFER HEADER IN USER AREA 

FAR FOR THIS QEVICEISEF BELOW) 
EVICE DATA BLOCK 

LOC, IN USER AREA 
RESS OF USER AREA 
OB OATA AREA 

LOC, IN USER AREA 
NLY SCNSER 10 ROUTINE 

iONLY THRU 1°) SAVEO >^0R INTERRUPT SERVICE 

XP USER, 11 ;«ADDRESS OF DFVICE SERVICE ROUT, DISPATCH TABLE 

XP BUFPNT,12 !CONTE".'TS OF FIRST W0R1 OF 3 WORD USER BUFFE HEADER 

XP UCHN,BUFP"T i»USFR 10 CHANNEL NO, 

XP BUFWR0.13 iCONTEvlTS OF 2ND WORD OF USER BUFFER 

XP UUU.14 i»CURRF\T UU3 In PROGRESS 

! PROG P' INTEX FIELD FOR RELOCATION 
[TEMPORARY ACSlMORE TE M PORARY THAN TAC.TAC1) 



XP 


IOb.K 


•10 DEVICE STATU 


XP 


TAC.l 


TEMPORARY(SPMETI 


XP 


TAC1 ,? 


TEMPORARY (SOMET I 


XP 


POP, 3 


•PUSH DOWN =OINT 
CHANNEL AN n EAC 


XP 


I T E M , 4 


BUFFER ITEM COUN 


XP 


DAT ,b 


TTY OUTPUT OUFFE 
MESSAG 


XP 


JBUF.OAT 


ADDRESS OF ■" WOP 


XP 


DEVDAT ,6 


»LH=UUOS no^E SO 

rh=aooress of n 


XP 


PROG, 7 


•LH=HIGHEST REL. 
RH = A r ?SOL'ITF ADD 


XP 


JDAT.PROG 


»RH=ADO"ESS OF j 
LH=HIGHEST REL. 


XP 


TrM , \f 


TEMPORARY U'EO 



XP AC1.15 
000016 XP ACiJ , lfit AC? = 1 6 
0UFJ17 XP AC3,17'AC3=17 

iHFOFFINE SO THAT ONLY Tw£ A' : OVE ACS WILL OCCUR IN [JOT PRINTOUTS 

DEFINE XP(A,K)< 



COMMON - MONITOR COMMON DATA AREA ANfl CONFIGURATION DEFINITION - V437 MACR1.V36 19!02 4-JUN-69 PAGE 1-1 



54 
55 
56 
^7 



A = =R 

INTERNAL A 
> 

JOEFINE REST QF SYMBOLS SO T"AT THEY WILL NOT BE PRINTED BY FXEC DOT ON nUTPUT 
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58 
•59 

6a 

61 
62 
63 
61 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 



DEVICE DATA BLOCK NAMES 
XP uFVNAm.51 



INAME I (M SIXBIT ASCI I 
I C(LH)=DEV|CE MNEMONIC 
I C(RH)=DLVlCt NUMBER, LEFT JUSTIFIED 
(CHARACTERISTIC 

I BITS 0-b=JOB NUMBERtBYTE PO I NTER = P JOBN ) 
1 2ERU VALUE IMPLIES NOT ASSIGNED 
IBUS 6-ll=HUNG OEVICE COUNT. SET WHEN 
I DEVICE BECOMES ACTIVE, DECREMENTED EVERY SECOND, 
IBITS 12-17=HUNG DEVICE COUNT 

I SETTING, MEANS DEVICE CAN NEVER BE HUNG, 
< BITS 1B-23 = DEVICE NUMBER . B I NARY ( BYTE Pn INTER=PUN I T 
I BITS 24-3b=BUFFER SIZE 
(STATUS WORD. SEE BELOW 
IC<LH)=NEXT OEVICE DATA BLOCK 
I C(RH)=DEVICE SERVICE DISPATCH TABLE 
DEVICF SERVICE DISPATCH TABLE ASSIGNMENTS 

XP 0INI.-2 IDEVICE INITILI2AT10N 

XP DWNG.-l IDEVICE IS HUNG 



XP DFVCHR.l 



XP hUNGCT,100 



XP HUNGST.l 



XP DEVI0S.2 
XP 0EVSER.3 



77 
78 
79 
80 
PI 
82 
83 
34 
85 
86 
87 
88 
89 
90 
91 
92 
03 
94 
°5 
96 



XP URL.0 (RELEASE 

XP DCL.l (CLOSE 

XP DCLO.DCL (CLOSE OUTPUT 

(IMMEDIATE ADDRESS PART OF CLOSE UUD 



XP CLSOUT.l 
XP CLSIN.2 

XP DDUi2 

X P I N , 3 

XP DEN, 4 

XP DLK.5 

XP D00.6 

XP DDI.7 

xp uso.i? 

XP DSI ,11 

XP UGF.12 

XP URN, 13 

XP UCLI.14 

XP DCLR>15 

XP DMT, 16 



I INHIBIT CLOSING OUTPUT 

! INHIBIT CLOSING INPUT 

(OUTPUT 

(INPUT, SHORT DISPATCH TABLE 

(ENTER 

(LOOKUP 

I DUMP MODE OUTPUT 

(DUMP MODE INPUT 

ISETC 

ISETI 

1GETF UUO 

I RENAME 

ICLOSE INPUT 

(CALL D.ESIXBIT /UTPCLR/] 

IMTAPE 



END OF LONG DISPATCH TABLE 
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97 

98 
99 

i?e 
1?1 
122 
12 3 
i?4 

1?5 
12 6 
1"7 
1"8 
109 
11 
111 
112 

11 J 
11.4 
lib 
116 
117 
118 
119 
1?2 
1?1 
122 

12 3 
121 
125 
126 
127 
1 2 6 
129 

13 1 
132 
1 3 3 
1 3 1 
13 5 
136 
13/ 

13 8 
139 
142 

14 1 

l'-2 
143 

1.44 

1 4 5 
146 
14 7 
14B 
149 



XP DFVMOO." 



IRIGHT HALF OF DEVICE CHARA 

XP ASSCON ( 400000 

XP ASSPRG. 200000 
ILFFT HALF OFVICE CHARACTER 

XP UVOUT.l 

XP DVIN.2 

XP DVDIR.4 

XP DVTTY.10 

XP DVMTA.20 

XP 0VAVAL.43 

XP DVDTA.100 
XP DVPTR.200 
XP DVPTP.400 
XP DVLNG.1000 

XP DVDIS.2000 
XP TTYBlU.4000 

XP TTYUSE. 10000 
XP TTYATC. 20000 
XP DVLPT, 40000 
XP UVCOR, 100000 
XP UVDSK, 200000 
XP DVD I R IN 1 400000 

XP DEVL0G.5 
XP DFVBUF.6 

XP DFVI4D.7 



XP DFVADR.DEVI iO* 



XP DFVOAn,l0 

XP DFVPTR.OEVOAD' 



(SITS 6-tl=LEFT HALF OF IMAGF "ODE BYTE POINTER 

! BIT 35-J=l IF MODE J IS LEGAL FOR THIS DEVICE 

I HIT 18 DEVICE ASSIGNED BY CONSOLE COMMiND 

I BIT 19 DEVICE ASSIGNED BY PROGRAM (INJT) 

CTERISTICS WOROIDFVCHR UUO) 

(ASSIGNED BY CONSOLE COMMAND ASSIGN 

{ASSIGNED BY PROGRAMUNIT UUO) 
ISTICSIDEVCHR UUO) 

IOUTPUT DEVICE 

IINPUT DEVICE 

I HAS A DIRECTORY 

I IS A TTY 

I IS A MAG TAPECREWIND) 

II IF DEVICE IS AVAILABLE TO THIS JOB 
! SET BY DEVCHR UUO 

IIT IS A DECTAPE 

US A PAPER TAPE READER 

MSA PAPER TAPE PUNCH 

•DEVICE HAS LONG DISPATCH TABLE 

! (OTHER UUOS BESIDES I NPUT , OUTPUT . CLOSE , RELE ASE ) 

I IS A DISPLAY 

r TTY DOB IN USE (AS 10 DEV. EVEN IF 

I NOT AS USER CONSOLE) 

I TTY DDB IN USE FLAG 

ITTY ATTACHED TO JOS IF 1 

IIS A LPT (CARRIAGE CONTROL IN FORTRAN) 

US A CARD READERITRAILING SPACES FOR MACRO) 

IIS A DISK 

IDECTAPE DIRECTORY IN CORE IF KMUST BE SIGN BIT) 

(LOGICAL NAME FOR JOB DEVICE 

IC(LH)=REL. ADR. OF 3 WORD OUTPUT BUFFER HEADER 

I C(RHI=REL, ADR. OF 3 WORD INPUT BUFFER HEADER 

IC(LH)=PROG IN INOEX FIELD 

IBITS 1 AND 2 USED TO KEEP COUNT OF NO. iF USER CHANNEL 

I INITED ON THIS DEV I CE ( DECTAPE ONLY) 

I IADPTR-COMMON BYTE POINTER TO 2 BIT CO'jNT 

I C(RH)=REL. INPUT BUFFER ADD, SERVICE R2UT. IS FILLiNG 

IC<LH)=PROG IN INDEX FIELD 

I C(RH)=REL. OUTPUT BUFFER ADR. SERVICE SOU. IS EMPTYIN 



XP DFVCTR.llt 
IFOR LONG DISPATCH TABLE DEVICES ONLY! 

XP DFVFlL.ll (FILE NAME IN SIXBIT 

XP DEVEXT.12 ILH=exTENSION, RH=UNUSED 

XP DFVPPN.13 IPROJECT PROGRAMMER NO, (DISK ONLY) 

I OTHER DEVICES NEED NOT HAVE THIS LOCATION IN THEM, 
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150 
151 
152 
153 
15 4 
15b 
156 
157 
158 
15V 
160 
161 
162 
163 
164 
165 
166 
167 
168 



i ! 
iOA 



;b 



/0 STATUS WORD ASSIGNMENTS 

TA MODES: BITS 32-35CRYTE! PO I WTER=P I OMOD ) 

XP A, 2 IASCII 

XP AL<1 (ASCII LINE 

XP I, If* (IMAGE 

XP IF), 13 I IMAGE BINARY 

XP B.14 (BINARY 

XP SD.15 (SCOPE DUMP MODE 

XP DR. 16 (DUMP BY RECORDS 

XP 0.17 (DUMP ACROSS RECORDS 

TATUS BITS 

GHT HALF (USER) 

XP IDWC.2U (DON'T COMPUTE WORD COUNT 

XP IOCON.40 (CONTINUOUS (CONT=0) 

XP IONRCK.100 (READ WITH NO. REREAD CHECK 

TS 27,28 DENSITY OF MAG TAPE 

00 = INSTALATI<iN STANDARD 
01=200 BPI 
10=556 BPI 



169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
1"-1 
1S2 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
2?1 
2"2 



11=800 BPI 

XP IOPAR.1000 

XP IOTEND.2000 

XP IOBOT.4000 

XP IOACT, 10000 

XP IDDENO, 20000 

XP 10BKTL. 40000 

XP IODTER. 100000 

XP 10DERR. 200000 

XP IOIMPM. 400000 



(WRITE EVEN PARITY (BCD) IF 1 ON MAG TAPf: 

(END OF MAG TAPE 

(BEGINNING OF MAG TAPE 

(DEVICE ACTIVE 

iOATA END ENCOUNTERED 

(BLOCK TOO LARGE 

IDATA ERROR 

(DEVICE ERROR 

I IMPROPER MODE DETECTED BY 

( INPUT SERVICE ROUTINE 

I I/O WAIT 

IVIRGIN DEVICE 

(NEXT ITEM WILL BE THE FIRST ITEM OF A B'FFER 

I0UT=1. IN=0 

(SERVICE ROUTINE HAS TRANSMITTED LAST DATA 

(REST OF BITS IN LH ARE DEVirE DEPENDENT EXCEPT BIT 14(XP 10! WHICK IS K^PT AS A SPARE 



(COMMAND DECODER USE OF AC lOSi 

iRH = DISPATCH ADDRESS - S AV JOR . GET JOB . RUN JOB 
iLH! 

XP NSRBIT, 400000 (HIGH SEG TO BE FLAGGED NON-SHARABLE ( S AVF VS SSAVE C3MM 
AND) 

I DO NOT CONFUSE WITH SIGN BIT OF JBTSTS 

I WHICH SAYS SEG IS SHARABLE 



1 LEFT 


HALF 


(SYSTEM) 




XP 


I0W.1 






XP 


IOBEG, 


2 




XP 


IOFST, 


,4 




XP 


10,20 






XP 


IDEND, 


,40 



(HARDWARE BITS: 
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273 
2.'4 
2?5 
?.?b 
207 
2«8 
2,19 
2 1 e 



OTECT ON 



010000 
200000 
020000 



XP UWP.l 
M 

XP USRMOO, 10000 
XP UIOMOD.4030 
NXM=12000 
POV=?00000 
ILM=20000 



(position in lh of datao apr to turn use^-mooe write ph 

:lh pc word, machine was in user mode whfn pc stored 
ilv °c word, machine was in user 10 mooe when pc storeo 

inon ex memory 

ipush down overflow 

i illegal memory 
i ie all instructions were legal 
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211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 



LEFT HALF USRJDA (JOB DEVICE ASSIGNMENTS) UUO'S FOR THIS CHANNEL SINCE LAST INIT 



XP INITB, 400000 
XP IPUFB, 200000 
XP ORUFB, 100003 
XP LOOKB, 40000 
XP ENTRB, 20000 
XP INPB, 10000 
OUTPB.4000 
ICLOSB.2000 
OCLOSB.1000 
INBFB.400 
XP OUTBFBi200 
XP SYSDEV.100 



XP 
XP 
XP 
XP 



XP RENMB.40 
XP DSKRLB.20 



I INIT-SaVEGET DEPENuS ON THIS BEING SIGN filT 

UNIT W]TH INPUT BUFFER SPECIFIED 

UNIT WITH OUTPUT BUFFER SPECIFIED 

(LOOKUP 

IENTER 

I INPUT 

(OUTPUT 

I INPUT CLOSE 

IOUTPUT CLOSE 

I INBUF 

IOUTBUF 

(THIS DEVICE IS SYSTEM TAPE 

I PROJ.PROG, NO 1,1 ON DSK 

JRENAME UUO 

ITO DISTINGUISH RELEASE FROM RESET UUO IN DSKSER. 

I RELEASE CLEARS THEM ALL 



2 30 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 



(MTAPE UUO BITS 

XP SLICE, 40 
XP SLEVEL<2£ 



(SET SLICE LEVEL IF A 1 ACCORDING TD SLEvEL 
IVALUE OF SLICE LEVEL IF SLICE A 1 



(ERROR CODES RETURNED TO USERS ON LOOKUP AND ENTER AND RENAMF FA I LURFS ( D I SK ONLY) 

(IN 2ND WORD OF 4 WROD ARGUMENT RLOCK(RH) 

(THE SAME ERROR CODES ARE RETURNED ON RUN AND GETSEG UUOS FDR ALL DEVICES 

(FILE NOT FOUND OR FILE NAME 

(INCORRECT PROJECT, PROGRAMMER NO. 

(PROTECTION FAILURE(0R DIRECTORY FULL ON DTA) 

IFILF BEING MODIFIED 

IALREADY EXISTING FIUE(RENAME ONLY) 

INEITHER LOOKUP NOR ENTERtRENAME ONLY) 

(TRANSMISSION ERRORCRUN, GETSEG UUO ONLY! 

(NOT A SAVE FIL£(RUN, GETSEG UUO ONLY) 

(NOT ENOUGH COREfRUN, GETSEG UUO ONLY) 

(DEVICE NOT AVAILABLEiRUN, GETSEG UUO ONLY) 

(NO SUCH DEVICEIRUN, GETSEG UUO ONLY) 

(ILLEGAL UUO (GETSEG ONLY) NOT TWO RFLOC REG, CAPABILITY 



XP 


FNFERR, 


,0 


XP 


IPPERRi 


,1 


XP 


PRTERR, 


,2 


XP 


FRMERR, 


,3 


XP 


AEFERR, 


,4 


XP 


NLEERR, 


.5 


XP 


TRNERR, 


,6 


XP 


NSFERR, 


.7 


XP 


NECERR, 


.10 


XP 


ONAERR, 


■ 11 


XP 


NSDERR, 


.12 


XP 


ILUERR, 


13 
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252 
25,3 
25-) 
255 
256 
257 
256 
259 
260 
261 
262 
263 



JOB BUFFER AREA HEADER 
XP JRFAD^',0 



XP JBFPTR.1 

XP JRFCTR.2 

JOB BUFFER HEADER 

XP inuSE. 42100001 



IBIT 0=1 IF THIS BUFFER "ING HAS NEVER BrEN 
I REFERENCED FROM THE USER'S PROGRAM BY 
I AN INPUT OR OUTPUT COMMAND. 

I BITS 1-17=UNUSED 

! PITS 1S-35=CUKRENT BUFFER ADDRESS 
idYTE POINTER TO NEXT RYTE -1 
(POSITIVE ITEM COUNT 

II IF BUFFER IS FULL (OR BEIN3 EMPTIED) 

! 3 IF BUFFER IS EMPTY (OR BEING FILLED) 

I BITS 1-17=BUFFER SIZE 

I BITS 18-35=NEXT BUFFER ADDRESS 
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264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 

283 
284 

285 
286 
287 
288 
289 
290 
291 
292 
296 
294 
295 
296 
297 
298 
299 
j!*0 
301 
302 
3^3 
3?4 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 



(JOB STATUS WOROUBTSTS TABLE). ONE WORD FOR EACH JORtSOME BITS ALSO APPrAR IN HIGH iEG 
STATUS WORD! 



XP RUN, 400000 

XP SNA, 400000 

XP CMWB>200000 

XP SHRSEG, 200000 



HARABLE 



AY) 



XP JACCT, 100000 



XP JNA, 40000 
XP JFRR, 20000 

XP NSWP. 10000 



XP SHF.4000 



XP SWP.2000 



XP NSHF.1000 
XP CLKR.400 

XP STOPIO,SWP*CMWB+SHF 



USER WANTS JOB TO RUNIMUST RE SIGN BIT) 

HIGH SEG NUMBER ASSIGNED (ANALOGOUS TO ,]NA EXCEPT 

MUST BE SIGN 6IT) 
JOB TYPED A COMMAND WHICH NEEDS CORE 

WHICH IS ON DISK. SET BY COMMAND DECODER 

CLEARED WHEN JOB IN CORE AGAIN, 
HIGH SEG IS SHARABLE (ALTHOUGH NAME MAY BE 

IG IT HAS BEEN SUPERSEDED) 

THIS BIT ALSO APPEARS IN SAME PLACE IN LH OF 

OF JBTSGN FOR EACH USER TO INDICATE USFR IS USING A S 

HIGH SEG (ALSO APPEARS IN LH OF AC ITEM WHEN 
RH IS SEG NUMBER FOR A PARTICULAR JOB 
PRIVILEGED SYSTEM CUSP IS BEING RUN WHICH CANNOT 
BE STOPPED (E.G., LOGIN 

OR LOGOUT), PROTECT IT FROM CURIOUS EYES, 
DISABLE CONTROL C, MADE IT ACT LIKE ALT-MODE 

THIS JOB NUMBER IS ASSIGNEDtJOB INITIALIZED) 

A MONITOR DETECTED ERROR HAS OCCURREO 
JOB CAN NOT CONTINUE 

JOB OR HIGH SEG IS NOT TO BE SWAPPED 1 RE ALT I ME OR DISPL 

(CAN BE SHUFFLED OR NOT ACCORDING TO NSHF) 
MONITOR IS WAITING FOR DEVICES FOR THIS 

JOB TO STOP AFTER CURRENT BUFFERFULL 

SO JOB CAN BE SHUFFLED IN CORE OR SWAPPED OUT 

IF JOB ONLY HAS LOW SEG 
IF JOB IN CORE, 1 IF SWAPPED OUT OR O 1 - WAY 

IN OR OUT 

SAME FOR LOW AND HIGH SEGMENTS 
JOB IS NOT SHUFFLABLE 
JOB HAS A CLOCK REQUEST IN. 

NEEDED SO ONLY ONE REQUEST PER JOB 
FORCE JOB TO STOP TO EXECUTE 

SWAP, COMMAND OR 

SHUFFLE 



iBITS 10-14 USED TO INDICATE JOB IN WAIT FOR A SHARABLE DEVICE 

!0 MEANS JOB NOT WAITING FOR SHARABLE DEVICE 

iSEE SCHEDULER(CLKCSS) FOR DEFINITION OF WAIT CODES 



XP JWSI2.5 
XP JWP0S,tD14 
XP WTMASK.370 



ISIZE OF WAIT CODE 

(RIGHT MOST BIT POS. OF WAIT CODE 

IMASK FOR CLEARING WAIT COOES 



;BITS 15-17 ARE MO LONGER SET BY LOGIN, THEY ARE MONITOR STATUS BITS 



XP JL0G.4 
XP JRQ.2 



JJOB SUCCESSFULLY LOGGED IN 

IJOB HAS CHANGED STATE AND MUST BE REQUEUED AT CLOCK 



common 
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317 
318 
319 
3?C 
321 
3?2 
323 
3?4 
3?5 
326 
327 
326 
329 
33 
331 
332 



XP JXPN.l 



I LEVEL REFORE RESCHEDULING CAN TAKE PLACE 

IJOB MUST PE SWAPPED OUT BECAUSE IT IS EXPANDING 5IZE 

i OF CORE AMP THERE WASN'T ROOM IN COKE ' " ' 



; 8 SA T ME 9 F0RM^ E AS US ^CCESS p"rFOR R ^st EGERS ^ "« ^"^ HIGH S « ME " S 

XP HSASI?,»09 ;S1ZF OF HIGH SEG ACCESS BITS 

XP ^am^'t^ 7 iR 'G^T MOST POSITION OF HIGH SEG ACCFSS BITS 
XP HSAMS<,777 MASK To CLEAR ACCFSS PRIVILEGES 
(MASKS USED TO T-ST STATUS CONDITIONS! 



XP RUNAB|.E,RUN*JNA 

XP RUNMSK,JLOG*CLKR*NSHF+jACCT+NSkP 



ISTATUS PIT PATTERN FOP JOS TO BE RUNABLF 



iBITS WHICH 00 NOT MATTER FOR RUNA6IUT 



COMMON - MONITOR COMMON DATA AREA AMD CONJF IGURAT I ON DEFINlTmN - V437 MACRO, V36 19S02 4-JUN-69 PAGE 8 



333 
334 
335 
336 



JBITS IN JBTSWP TABLE 

XP FRGSEG. 400000 
XP SWPCLR. 400000 



ILH - 1 IP LOW OR HIGH SFG IS FRAGMENTED ON SWP DEV 
SRH - 1 IF JOB DATA AREA SHOULD BE CLEARfD AFTER SdAP 
I IN, SET ON 140 RESTART SO NO DEVICES ASSIGNED 
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337 
33B 
339 
340 
341 
342 
343 
344 
345 
3 4 6 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 



IVIRTUAL ADDRESSING SPACE DESCRIPTOR WORD (JBTSGN) ONE WORD FOR EACH JOB 

1THIS WORD APPEARS IN AC IT£« 

!LH RlTS 

I THE HIGH SEB IS PHYSICAL CORE (SEE SPYu.'O) 

I MUST BE SIGN BIT SO TEST FOR JOB HAVING A 

I REAL HIGH SEG IS SKIPG JBTSGN ( I TEM ) 

ITHE HIGH SEG THIS JOB IS USING IS SHARAn|_E 

I THIS BIT ALSO APPEARS IN JBTSTS FOR HIGH SEGS 

IJF 1, USER-MODE WRITE PROTECT IS OFF FOR THIS JOB 

IIP 1, USER HAS MEODLED WITH SHARABLE PROGRAM SUCH 

I 



XP SPYSEG. 400000 



XP SHRSEG.SHRSEG 

XP UWPOFFi 100000 
XP MEDDLE. 40000 



XP CORCNT, 20000 



THAT PROGRAM CANNOT TRUST ITSELF 
J TO TURN UWP OFF OR CHANGE HIGH SEG CORF ASSIGNMENT 
I MEDDLING MEANS: 
I 1, START N> OR D COMMAND 

I 2, RUN UUO WITH GREATER THAN 1 STARTING 
I INCREMENT 
I 3, GETSEG UUO 

I 4, HIGH SEG IS PHYSICAL CORE (SPY UUO) 
l#l, THE HIGH SEG IN CORE COUNT FOR THIS JOB 

I HAS BEEN INCREMENTED. IF IT HAS NOT 
I SET AND CLEARED BY INCCNT AND DECCNT ROUTINES 
!RH IS HIGH SEG NUMBER (NUMBER GREATER THAN JOB MAX AND LESS THAN OR EQUAL TO JBTMAX) 
! OR IF SPYSEG IS SET, RH IS HIGHEST PHYSICAL ADR USER MAY SPY INTO 

;JOB PRIVILEGE BITS - JBTPRV TABLE 

;SET BY LOGIN FROM ACCT.SYS FILE AS MODIFIED BY CUSTOMER 

iKH RESERVED FOR SPECIAL CUSTOMER OEFlN£n PR I V 1 LEGES ( PLEASE START AT BIT 35) 

SLH RESERVED FOR DIGITAL STANDARD PRIVILEGES 



:BITS IN LEFT HALF 
XP PVSPYm.1 
XP PVSPYA.2 
XP PVTRPS.4 



(JOB ALLOWED TO SPY AT MONITOR USING PEEK/SPY UUOS 
UOB ALLOWED TO SPY AT ALL OF CORE USING PEEK/SPY UUOS 
(JOB ALLOWED TO USE TRPSET UUO 



COMMON - MONITOR COMMON DATA AREA AND ^FIGURATION DUFI^TION - V 4 3 7 MACRO. V3 6 19 !0? 4-JUN-69 PAGE 1,-1 

CONO PI.PION 



4?4 
4?5 
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426 
4?7 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 

445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 



LIST OF INDEPENDENT MONITOR COMMAND FEATURES 

THESE FEATURES CAN BE ELIMINATED FROM A SYSTEM RY 

SETTING THE APPROPRIATE FTXXXX SYMBOL BFLOW TO 

AND REASSEMBLING THOSE ROUTINES IN WHICH CODE FOR THE 

FEATURE APPEARS, THE ROUTINES AFFECTED BY EACH FEATURE 

ARE LISTED "ELOW, TO GUARANTEE THAT NO ROUTINES ARE 

MISSED. FTXXXX IS DEFJNFD TO BE AN INTERNAL IN THOSE ROUTINES 

IN WHICH IT IS USED IN CONDITIONAL ASSEMBLY. THUS THE 

RELOCATING LOADER WILL DETECT MULTIPLY DEFIED GLOSALS 

IF NOT ALL ROUTINES AFFECTED HAVE BEEN REASSEMBLEO. 



777777 777777 FTTIME=-1 

777777 777777 FTATTACH=-1 

777777 777777 FTTALK=-1 

777777 777777 FTEXaMJNE=-1 

777777 777777 FTREASS I GN=-1 

777777 777777 FTTRPSET=-1 

777777 777777 FTSLEEP=-1 

777777 777777 FTFINISH=-1 

000000 FTCHECK = (" 

000000 FTMONP=0 



iTlME ACC 

; APPEARS IN APRSER. STUFF 

;ATTACH AND DETACH TTY TO JOB COMMANDS 
APPEARS IN APRSEP.SCNSER 

TALK TO TTY? COM. 

APPEARS IN APRSER. SCNSER 

EXAMINE AND DEPOSIT COMMANDS 
APPEARS IN APRSER 

REASSIGN COMMAND 
APPEARS IN APRSER 

USER 10 - TRPSET.TRPJEN UUOS AND OPCODE 130(PDP-10S ONlv) 
APPEARS IN APRSEP. STUFF, CLKCSS 
THESE UUOS ARE SOON To BE REPLACED BY SOME KNAVE-PROOF REAL TIME UUOS 



iSLEEP UUO 

; APPEARS IN APRSER, STUFF 

,'FINISH COMMAND 

i APPEARS IN APRSER 

JMONITOR CHECKSUMMING 

; APPEARS IN ALL FILES EXCEPT CHAN, NULL 

SMONITOR WRITE PROTECTED BETWEEN 1000 AND 20000 
; APPEARS IN ALL FILFS EXCEPT CHAN, NULL 



COMMON - 
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469 

470 

471 

472 

4 73 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

4H4 

485 

486 

48 7 

4R8 

489 

490 

491 

492 

493 

494 

495 

496 

4 97 
496 
499 
500 
501 

5 3 2 
5 3 
5?d 
SP5 
5?6 
t>i?7 
5?8 
5C9 
510 
511 



777777 777777 FTRCHK=s-l 



FTHALT=0 
MESSAGE 



000000 FTTRaCK = (? 

777777 777777 FTTTYSER=-1 
777777 777777 FT2REL=-1 

R SO LOCS OF 



777777 777777 FTKCT=-1 

777777 777777 FTPRv=-i 

777777 777777 FTRETTaB=-1 

000030 FTRA1H=0 



iASSFMBLE WITH RFDUNOANT CHECKING FOR INTERNAL MONITOR EBRORS. 
[ HALT IF AN ERROR IS DETECTED 

i CONTINUE WILL LOOPUF N0N-REC0VERA9LE ERROR) OR TRy To REOVER 
I OPERATOR SHOULD MAKE NOTE OF MEMORY ADDRESS REG ( LOC*l OF HALT) 
; APPEAHS IN DSKINT, 

1MONITOR HALTS WHEN IT DETECTS AN ERROR IN ITSELF INSTEAD OF PRINTING * 

i WHEN IT DETECTS AN ERROR, USED FOR DEBUGGING SO A DUMd CAN BE TAKEN 

! APPEARS IN ERRCON, CONTINUE SWITCH WILL CAUSE USUAL 

i ERROR MESSAGE TO BE PRINTED, AC DAT HAS JSP DAT, ERROR IN IT ON HALT 

(MONITOR LEAVES USEFUL INFORMATION IN LOCATIONS 
) IN :OMMON, NOT NEEDED EXCEPT FOR LEAVING TRACKS 
! TO DEBUG CASHES WITH. 

(NEW TTYSE9 INSTEAD OF OLD SCNSER 
) APPEARS IN APRSER.ONCE 

■SUBROUTINE CALLS T SEGCON FOR TWO RELOCATION REGISTER rAPABILITY 

I -1 I OR PDP-6 AND PDP-10. SEGCON IS EITHER A DUMMY SET 

i OF SUBROUTINE PR THE REAL THING DEPENDING ON THE MACHINE, 

! THOSE CUSTOMERS WITHOUT 2 REG MACHINES WHO WANT TO ELIMINATE T 

' l^!" ^!'^ CALLS ro SEGCON, CAN DO SO BY REASSEMBLIN TwE MONITOR 
! W TH FT2REL=0. HOWEVER THE COMPANY WILL DISTRIBUTE MONITORS 
i WITH FT2REL=-1 ALWAYS(PDP-6 AND PDP-10) 

: APPEARS IN FIRST, ONCE, APRSR.SCHED 

(ACCUMULATE CORE'RUNNING TIME FOR CHARGING FOR E4CH uSFq 

(PRIVILEGE BITS FOR EACH USER 

(GETTAB UUO - RETURN CONTENTS OF MONITOR JOBTABLES 



(NO RA-13 DISK CONTROLLER (BRYANT DISK) 
(TEMPORARILY USED IN DSKSER 



HE 21 
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512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 



SDEFINE THE QUEUES. OUANTU* RUNNING TIME IN JIFFIES, AND PRIORITY 
[PRIORITY GOES BACKWARD FROM LOW TO HIGH 

DEFINE QUEUES 

< X RN,7 (STRAIGHT RUM (LOWEST PR I OR I TY ) (0 = ) 
X WS,6 ; 10 WAIT SATISFIED 
X TS.6 iTTY 10 WAIT SATISFIED 
X ST, 6 {SYSTEM TAPE WAIT 
IFN FTDISK.< 

X AU,4 IALTER DISK UFO OUEUE 

X MQ,4 {MONITOR DISK QUEUE 

X DA," (DISK STORAGE ALLOCATION WAIT 

X DT.4 iOECTAPE CONTROL WAIT (UP To 8 DRIVES) 

X DC.4 ;DATA CONTROL (DC) WAIT - MAGTAPE AND OECTAPE 

X MT.4 (MAGTAPE CONTROL WAIT (UP TO 8 UNITS) 



1J0B STATUS CODES WHICH HAVE NO CORRESPONDING QUEUES 
!JOBS ARE UNRUNABLE WHEN IN THESE STATES 



DEFINE CODES 



X IOW, i 10 WAIT 

X TIOW, ITTY 10 WAIT 

X SLP, iJOB SLEEPING 

X NUL, !UOB NUMBER NOT ASSIGNED 

X STOP, (STOP (CONTROL C> 

XP STTYBF.20 (SIZE OF TTY BUFFER 
XP STTYB1.STTYBF*! ILENGTH+1 



ASUPPRESS 
LIST 



(ELIMINATE ALL SYMBOLS NOT REFERENCED LATER 
I FROM THE SYMBOL TABLE LISTING 



SUBTTL CONFIG - CONFIGURATION DEFINITION FILE OUTPUT BY MONGEN DIALOG 



(ANSWER THE FOLLOWING QUESTIONS WITH Y OR N OR A DECIMAL NUMBER 

(SHORT D]ALOG?CN = LONGER QUESTIONS] 
(Y 

110/30 SYSTEM TO BE BUILTTtN = 10/40 QH 10/50 SYSTEM] 
!N 

(10/40 SYSTEM TO BE BUILTTCN = ASSUME 10/50 SYSTEM] 
IN 

XP SYS40N.0T 
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565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

59 7 

598 

599 

6Z0 

631 

602 

603 

604 

605 

6^6 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 
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XP SYS50N.lt 
XP DSKN.lt 
XP LOGINN.lt 

JRD10 (BURROUGHS) DISK?[ONE DISK TYPE FOR FILES, 

iSAMF TYPE FOR SNAPPING OR ONE OTHER TYPE FOR SWAPPING] 

XP RQ10N.lt 

IRD10 FOR SWAPPING?!!"' = CAN «WAP ON SOME OTHER TYPE] 

XP RnSWPN.lt 

SRP10 (MFMORFX) DISK PACKS? 

;N 

XP RP10N,0t 
XP RPSWPN.Bt 

JRA10 (BRYANT) DISK? 
;N 

XP RA10N,0t 
XP RASWPN,0t 

iDPD (DATA PRODUCTS) D!SK? 
i N 

XP DPDN,0t 

xp apswPN.at 

IHOW MANY J0BS7CATTACHED AND DETACHED, COUNTING NULL JOB] 

f 2 8 

XP J0BN,34t 

(MAX SliE OF CORE <IM k ) FOR ANY SINGLE USER? 

it) MEANS ALL OF CORE 

;0 

XP COHEN, 0t 

JPDP-10 PROCESSORJCN = Pop-6] 
i Y 

XP PQP10N.lt 

;2 RELOCATION REG, SOFTWARE?[Y . MUST HAVE KUCU. 
)N = JUST 1 BELOC. REG.] 
; y 

XP KT10AN.lt 
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618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
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iHOW MANY MORE SEGMENTS THAN JOBS7E0 UNLESS YOU 

[ANTICIPATE A LOT OF DORMANT SEGMENTS] 

10 

XP SEGN.0' 

SLOAD EXEC DDT7CN = ONLY IF LOADER HAS RUN OUT OF CORE BEFORF] 
IY 

XP DDTN.lt 

!LOAD LOCAL SYMBOLS7CN = ONLY IF LOADER HAS RUN OUT OF ROOM REFORE3 

ILOAD USER DDT7CBOTH CAN BE LOADED TOGETHER, 
IUSE USER DDT FOR PATCHING UMQER TIME SHARING] 
i Y 

XP UOOTN.lt 



637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 



JNAME OF THIS SYSTEM (24 CHARS OR LESS)? 
DEFINE SYSNAM 

< ASCI? \4S47 DEC POP-10 #2\> 

iWHAT IS THE SERIAL NUMBER OF YOUR ARITHMETIC PROCESSOR? 

12 

XP APRSN.2t 

;NAME OF SYSTEM DEV ICE? [DT A0 USUAL FOR 1(1/40 SYSTEM, 
IDSK USUAL FOR 10/50 SYSTEM] 
DEFINE SYSDEV 

< SIXBIT "nSK»> 
DEFINE SYSOAT 

< ASCIH /6-3-69/> 

(DATA LINE SCANNER(DC10)?CN = WILL ASK FOR 630 OR 630] 
IY 

XP DLSN.lt 
XP CCIN,f»t 
XP DCSN.0t 

SHIGHEST (OCTAL) LINE NUMBER7CUSUALL Y 7,17,27, ETC. FOR DC-10 OR 630 

(10. 20. 30 ETC. FOR 680 (TO ALLOW FOR PDP-8 CTY>] 

! 27 

XP HGHLIN,27t 

(FULL DUPLEX TTY S0FTWARE7CN * OLD HALF DUPLEX SOFTWARE] 
!Y 

XP FULLN.lt 
XP TABSN,0t 



C0M10N 
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671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

7d2 

7!"3 

7P4 

7 PI 5 

726 

7 71 7 

708 

7 7 9 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 



3013001 



(COMMON. MAC ALREADY EDITED F"R YOUR TTY CONFIGURATION? 
StN = WILL ALLOW YOU TO DEFINE NOW] 
i Y 

XP EDITN.lt 



SHOT GLOBAL BECAUSE OF DSKSER USE 



iPT 
i Y 


REAOFR? 


PTRNrl 


;PT 

IY 


PUNCH? 


XP 


PTPN. 1» 


(PLOTTER? 
JY 


XP 


"LTN.lt 



(HOW MANY LINE PRINTERS? 
il 

XP LPTN.lt 

(CARD READER? 
i Y 



iCR10?[Y = CR10A TOO. N IF POP-6 CARD READER] 
!Y 

XP CDRN.lt 
XP CR10N,lt 

(card punch? 
;n 

XP CDPN,0t 

(DISPLAY? 
(N 

XP DlSN.Pit 
XP PENN.0t 
XP T340N,0t 

(HOW MANY DECTAPES? 



STO10 DECTAPE CONTROL?CN = POP-6 DECTAPE3 
(Y 
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724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 



XP DTAN.10' 
XP UTCN.0* 

JHOW MANY MAGTAPFS? 

;3 

JTM-10A CCNTROL?[N = WILL ASK TM-10Bi THEN POP-6 MAGTAPES] 
!Y 

XP MTAN.3' 
XP MTSN.0' 
XP MTCN.0' 

(HOW MANY PSEUDO-TTY'S?[EACH CONCURRENT BATCH NEEDS ONE] 

!2 

XP PTYN.2t 

(TYPE "SYMBOL. VALUE" (VALUE IN DEC I MAL> [FOR ANY SYMBOLS 

;to BE DEFINED. TYPE EXTRA CARRIAGE RETURN WHEN THROUGH.] 

RADIX 10 



743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 



ADIX 8 

TYPE "OEVICE-MNEMONIC,CHANNFL"FOR SPECIAL DEVICES 

[WITH NEITHER CHANNEL SAVE ROUTINE NOR DEVICE DATA BLOCK. 

"DEVICE" MUST BE 5 CHARACTERS OR LESS, 

TYPE EXTRA CARRIAGE RETURN WHEN THROUGH.] 

EFINE SPCINT 

iTYPE "DE V I CE-MNEMON I C.CHANNEL. NO. -OF-DE VICES" 

[FOR SPECIAL DEVICE WITH CHANNEL SAVE ROUTINES AND DEVICE DATA BLOCKS 

"DEVICE" MUST BE 5 CHARS. OR LESS. 

TYPE EXTRA CARRIAGE RETURN WHEN THROUGH.] 

EFINE SPCSAV 

;MONGEN FINISHED 

NEXT YOU MUST ASSEMBLE COMMON WITH MACRO 
THEN LOAD IT AND REST OF MONITOR WITH LOADER 
AND FINALLY SAVE IT WITH MONITOR COMMAND SAVE 



UT 

IR 

JDS 

;to 
ir 

l/S 

JDS 
JLP 
JTO 
JSA 
f ] 



ASSEMBLE COMMON, TYPE 

MACRO 

K I COMMON, LPT : ►OSK IS, CONFIG , COMMON 

LOAD NEW MONITOR, TYPE 
LOADER 

KSCOMMON,DSK;SYS50/L 
T:*/W/D/A/M/P/G 

SAVE MONITOR, TYPE 
VE DSK MONITOR 

JEND OF CONFIGURATION DEFINITION 
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773 

774 

775 

776 

777 

77B 

779 

780 

781 

782 

7SJ 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

8510 

801 

8?2 
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E 14 



TITLE COMMON - MONITOR COMMON OATA AREA AND CONFIGURATION DEFINITION - V437 
SUBTTL PART 3 COMMON. MAC - T. HASTINGS/RCC TS 03 JUN 69 
XP VC0MMN,437f 



iPUT VERSION NUMBER IN GLOB AND LOADER STORAGE MAP 



REPEAT 0,< 



;THE COMMON SUBPROGRAM CONSISTS OF 3 FILES ASSEMBLED TOGETHER AS ONE SUBPROGRAM: 

1. S.MAC - THE USUAL SYSTEM SY"BOL DEFINTIONS ASSEMBLED WITH EVERY MONITOR SUBPROGRAM 

2. CONFIG. MAC - THF CONFIGURATION DEFINTION FILE generated by THE 

CONFIGURATION CONFIG PROGRAM OR BY AND EDITORISEE ABOVE) 

3. COMMON. MAC - THF REST OF THIS PROGRAM WHICH IS THE SAME 

SOURCE FOR ALL CONE I CURAT I ONS , 

HOWEVER. THE ASSEMBLIES ARE CONDITIONED BY MACROS DEFINED IN 2, 

THE FOLLOWING SYMBOL 11 AND TABLES ARE GFNERATEO: 



C. 
0, 
F , 
F, 

r, 

TH 

H . 
I . 
J. 
K . 



MONITOR STARTUP LOCA TI ONS U40-147 ) , HENCE LOAD THIS FIRST. 
JOB TABLES - LENGTH DEPENDENT ON m A X, NO. OF JOBS ALLOWED 
ALL VARIABLE STORAGE NOT ASSOCIATED WITH A PARTICULAR DEVICE 
COMMON SUBROUTINE RETURNS 
COMMON BYTE POINTERS 

TABLE OF SERVICE ROUTINE INTERRUPT LOCS TO BE LINKED BY ONCE nNLY CODE 
TABLE OF OEV;CE DATA BLOCK ADDRESSES AND NUMBER TO BE USED BY ONCF TO LINK 
EM TOGETHER AND GENERATE MULTIPLE COPIES. 
ASSIGNMENT OF PI CHANNELS 
PI CHANNEL SAVE AND RESTORE ROUTINES 
UUO TRAP LOCATIONS 40/41, 60/61 
SYSTEM CRASH STOP CONI'S, 



COMMON 



303 
834 

805 
806 
837 
B08 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
B23 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
645 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
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000036 
007020 
011072 



STHE FOLLOWING STANDARD SYMBOLS CAN BE SUPERCEDED BY A CUSTOMER 
(HAVING PREVIOUSLY DEFINED THEM ON THE CONFIG. MAC FILE USING 
iMONGEN PROGRAM 

IFNDEF LISTSN. <LISTSN==1> IFORCE S.MAC TO BE LISTED WITH COMMON FUE ONLY 

1UNLFSS 'LISTSN< DEFINED TO BE WITH MONGEN 
IFNDEF APRSN,<APRSN==0> iSERIAL NUMBER OF APR 

ISTANDARD MAG TAPE DENSJTY1556 BP I > , PAR I TY < ODD-B INARY > 

INTERN STOENS ISTANOARO MAG TAPE DENSITY(556 BP I 1 . PAR I TY ( ODD-B I NAR Y ) 

IFNDFF STDENS.<STDENS==2> [STAND. == BINARY AT 556 BPI 

ISTDENS==D*P WHERE D AND P ARE: 
(O==l<200 BPI)ID=*2<556 BPI ) 1D==3 ( 800 BP!) 
(P==0(OOD-BINARY PAR I TY I I P = = 4 ( EVEN-BCD PARITY) 



BEFORE 



INTERN JIFSEC 

IFNDEF JIFSEC. < J I FSEC = = t D60> 

XP HNGS£Ci2»JlFSEC* 

INTERN DTTRY 

IFNDEF DTTRY, <OTTRY==4> 

INTERN MTSIZ 

IFNDEF MTSIZ. <MTS 1 2== »D128> 

INTERN LPTSIH 

IFNDEF LPTSlZ,<|_PTSI? = = tD24t2> 

INTERN BLKONT 



(NO, OF CLOCK TICKSUIFFIES) PER SECOND 
(STAND. ==60 JIFFIES PER SEC, 



INO. OF TIMES To TRY ON DECTAPE FRRORS 
(STAND. ==4 TRIES 

ISIHE OF MAGTPAE RECORDS(DATA WORDS IN BUFFER+1 

(STAND. = = 128 WORDS PER BUFFER 

(SIZE OF LPT BUFFERtNO. OF DATA W0RDS+2) 
(STAND, = = 24 WORDS PER LPT BUFFER 

(MAX. NO OF CONSECUTIVE DECTAPE qLOCK SEARCHED 



I RESCHEDULING IF ANOTHER JOB IS WAITING TO USE CONTROL 
IFNDEF BLKONT,<BLKONT==tD50> (STAND, ==50 DT BLOCKS SEARCHEDI3 SECS.) 

INTERN NSPMEM INO, OF NANO-SECONDS PER MEMORY CYCLE 

IFNDEF NSPMEM,<NSPMEM = = tO1760> I STAND , = = 1760 NANO-SECONDS PER MFMORY CYCLE 

INTERN JIFSC2, J I FM I N , WDP J I F 

JIFSC2==JIFSEC/2 IHA|.F NO. OF JIFFIES IN A SEC (FOR ROUNDING) 

JlFMlN = = JIFSEC«t[160 INO, OF JIFFIES PER MINUTE 

WOPjIF==tD100000/NSpMEM»tD5000/JIFSEC (NO, OF WORDS MOVED 
IFNOEF MINC0R,<MINC0R==tn54.J0BN> (DISK DDB AND ACCESS ENTRY 

I ALLOCATION REQUIREMENTS IN FREE CORE 
(USED TO EXPAND SIZE OF MONITOR AT ONCE ONLY TIME 

132 WORDS/DDB AND 4 WORDS/ACCESS ENTRY = 36 WORDS 
IASSUME 1,5 OPEN FILES/JOB 



INTERN LOGS1Z 

IFNDEF LOGSIZ, <L0GSIZ«*2> 



IMINSIZ OF VIRTUAL CORE LEFT 
(AND STILL ALLOW LOGIN. MUST BE 
IAT LEAST AS BIG AS LOGIN CUSP IN K. 
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356 



I (STANDARD 



2K) 
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857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
B69 
870 
871 
872 
873 
874 
875 
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00SU4e 



000140 
000141 



000140 



254000 000000 



(SYSTEM INITIALIZATION DISPATCH TABLE, STARTING AT LOCATION 140 

(THIS SUBROUTINE MUST BE LOADED FIRST 

(ROUTINE "ONCE" IS ONCE ONLY CODE. IT CONVERTS THE OATE 

IAND SETS UP 10 SERVICE CHAIN, 

EXTERN SYSINI . SYSMAK , NUL JOB . ONCE , JSR2 
INTERN SYSDSP.SYSDDT 



000141 254000 000000 



COMORG=140 
LOC COMORG 



SYSDSPl JRST SYSINI 

SYSDDTl 

IFG DDTN,< 

EXTERN PATSYM 
JRST PATSYM 



(ORIGIN OF COMMON IS 140 

(MAKE LISTING BE SAME AS LOADING SO IT HILL BE EASY 
(TO EXAMINE SYSTEM LOCATIONS WITH CONSOLF SWITCHES 
IWITHOUT NEEDING A STORAGE MAP 

UNITIALIZE SYSTEM VARIABLES ONCE ONLY 

(EXEC DDT TO BE LOADED? 

IYES, EXEC DOTIPATCH SYMBOL TABLE POINTER FIRST) 



876 
877 
878 

879 
880 
881 
882 
883 
884 
885 
886 



IFE DDTN,< 

HALT . 
> 

000142 254000 000000 JRST SYSMAK 

000143 254000 000140 JRST SYSINI 

000144 2545^0 001547 JEN NULJB1 

000145 264000 000000 JSR ONCE 

000146 254000 000000 JRST JSR2 

000147 254000 001521 SYSCRSl JRST SYSTOP 



(NO, EXEC ODT 



IMAKE NEW SYSTEM 

UNITIALIZE SYSTEM VARIABLES ALWAYS 

IERROR RECOVERY 

IDO ONCE ONLY CODE OVER AGAIN 

IBYPASS ONCE ONLY OPERATOR DIALOGUE 

I (IN CASE CONSOLE TTY OOWN) 

(STOP MONITOR IN CASE OF DISASTER 



COMMON - MONITOR COMMON DATA AREA AND CONFIGURATION DEFINITION - \M37 MACRO. V36 19:02 4-jijni-69 PAGE 1? 



372 

373 
374 
375 
376 
377 
378 
379 
3>30 
381 
382 
383 
381 
385 
386 
387 
388 
389 



I SYSTEM MACROS 

;MACRO TO PREVENT SCHEDULING, USED AT UUO LEVEL WHEN A 
(REENTRANT ROUTINE IS CHANGING COMMON DATA NIT VET 
(ASSIGNED TO A PARTICULAR JOB 

DEFINE NOSCHED 
<> 

IMACRO TO ALLOW SCHEDULING ONCE MORE 

DEFINE SCHEDULE 
<> 

IMACRO TO PREVENT CORE SHUFFLING, USED AT UUO LEVEL WHEN 
IA ROUTINE SETS UP AN ABSOLUTE USER ADDRESS IN AN AC 
(OTHER THAN PDP.PROG, OR JOAT, THE MAIN EXAMPLE IS A SLT 
iFROM EXEC TO USER OR USER TO EXEC, 



390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
430 
4911 
402 
4<*3 
404 
405 
406 
437 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 



DEFINE NOSHUFF 
<> 

(MACRO TO ALLOW SHUFFLING ONCE MORE 

DEFINE SHUFFLE 
<> 

(MACRO TO TURN OFF ALL PI CHANNELS EXCEPT DATA CONTROL ONCE 

DEFINE DISABLE(A) 
<EXTERNAL CHNOFF 
CONI PI, A 

cono pi .chnoff> 
imacro to turn then back on 

define enable(a) 

<exteRnal chnon 

andcmi a, chnoff ido not touch dc channels 

tro 4,2800 iset to trun selected channel on 

CONO PI , (A) 
> 



(MACRO TO START A DEVICE FRO M UUO LEVEL 
ITAC!=XWD DEVINT FLAGS, CONO ARGUMENTS 

DEFINE STARTDV(A) 
<EXTEHNAL PIOFF.PION 

CONO PI.PIOFF 

CONO A, (TAC) 

HLRM TAC.A'CON 
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887 
BBS 
889 
890 
891 
892 
893 
894 
695 
896 
B97 
898 
899 
900 
901 
902 
903 
9 4 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
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[SPECIAL ABSOLUTE LOCATIONS IN LOWER MEMORY 

INTERN Sy5SNP.FCRTY,NULDAT,5I><TY.NULPDL.ERRPOL.KT10A,RCX1OC ( RCXCCWiDDTSYM 
INTERN T30SYM,9AXIOC.*AXCCW.CRSHWD 

10 DATA CHANNEL 

T. 777 

RESS.DATA ADDRESS 

ERMINATJON 

ILL BE 0, IF IT IS 

OSEFULLY OVERWRITTEN' 

EMPT TO SAVE THE 

F ALL DEVICES, 

RELOCATION AND PROTECTION 

A MOD DOES NOT COME WITH 

FOR DATA CHANNEL 
SEQUENCE OF lOWD'S IN DSKINT) 
IN FIRST IK OF MEMORY 
CONTROL WORD 

ERO, PRINTS SNAP SHOT OF SYSTEM 

U3PROGRAM 

NTER TO EXEC DDT SYMBOL TABLE 

STORED ON TRAP 
LL JOB(USES EXEC 
OR DUMP ACS) 
OWN LIST 
ETNED INSTR, ARE STORED ON 

ULL JOB 

THRU 137 

NG WHEN CURRENT JOB 

RROR IN NULL JOB 
ATA AREA WHERE SYMBOL TABLE 
Y REGULAR 10/30 LOAOER 
ONCE) 



000026 


RAXI0C=26 


XWD 0. ADDRESS FOR RA 
MUST BE EVFN AND ,L 


000027 


RAXCCW = RAXIOCn 


XWQ CONTROL WORO ADD 
STOREO ON CHANNEL T 


000030 


CRSHWD=30 


NORMALLY THIS WORO W 
ACCIDENTALLY OR PURP 
THE MONITOR WILL ATT 
AC'S AND THE STATE 
[A LA 147 RESTART] 


000033 


KT10A=33 


COPY OF CONTENTS OF 
DONE BY OTATO APR 
NEEDED BECAUSE KT10 
LIGHTS FOR 2ND REG, 


000034 


RCXI0C=34 


INITIAL CONTROL WORO 
(TRANSFERS CHANNE T 
MUST BE IN EVEN LOC 


000035 


RCXCCW=RCXI0C*1 


CHANNEL STORES FINAL 
HERE ON TERMINATION 


000037 


SYSSNP=37 


WHEN DEPOSITED NON-Z 
ON I.PT SEE LPSNAP S 


000036 


0DTSYM=36 


CONTAINS ADR, OF POI 


000040 


FORTY=40 


PLACE WHERE UUOS ARE 


000042 


NULDAT=42 


JOB DATA AREA FOR NU 
62 THRU 101 20-36 F 
AND ABOVE FOR PUSHO 


000060 


SIXTY=60 


PLACE WHERE UNIMPLEM 
TRAPtPOP-10 ONLY) 


000101 


NULPDL=101 


PUSH DOWN LIST FOR N 
USES EXEC LOCS 102 
USED FOR RESCHEDULI 
GOES INTO 10 WAIT 


000120 


ERRPOL=120 


PUSH DOWN LIST FOR E 


000131 


T30SYM=131 


PLACE IN 10/30 JOB D 
POINTER IS STORED B 
(MOVED TO DDTSYM BY 
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929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 

948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
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JPROTECTED JOB DATA STORAGE AND OTHER LOCATIONS SET EACH TIME 
)A NFW JOB IS RUN(SEE APRSER-CLK I NT ) 
INTERN SYSBEG.SYSBGl.SYSENO 



000150 



000150 
000151 

000151 

000152 



SYSBEG! 

XP SYSBGl.SYSBEG+1* 



IFIRST LOCATION CLEARED ON 143 RESTART(SFE SYSINI) 



0000f!0 000000 



JOB: 
JOBDATl 



INTERN JOB.JOBADR.JOPDAT.USRREL.USRSAV 





000000 
000000 



000000 

000000 



JOBADRl ? 
USRRELi 



000153 000000 000000 USRSAVl !5 



ICURRENT JOB RUNNING AT UUO LEVEL 

(LOC OF CURRENT JOBS JOB DATA AREA 

I SAME AS JBTDAT AND AC JDAT 

IXWQ PROTECTION, RELOCATION FOR CURRENT JOB 

ISAME AS JBTADR(JOB) AND AC PROG 

ILH==0. RH CONTAINS CONTENTS OF PROTECTION REGISTER 

(LOW ORDER BITS==1777. IE THIS IS HIGHEST BEL. LOC 

(IN CURRENT USER AREA(USED FOR ADDRESS CHECKING) 

(TEMPORARY FOR UUO HANDLER ( I MPURE ROUTINE!) 



(LOCATIONS COPIED FROM JOB DATA AREA INTO MONITOR WHEN A JOB RUNS 

(THIS PRFVENTS THE USER FROM CLOBBERING THEM AND MAKES IT 

i EASIER FOR THE MONITOR TO LOCATE THESE QUANTITIES WHEN IT 

(NEEDS TO FOR THE CURRENT JOB 

(CONTENT? ARE COPIED BACK WHEN JOB BECOMES INACTIVE (SEE CLOCK) 

(COMPARE WITH JOB DATA AREA (SEE JOBDAT) 

(THE FOLLOWING LOCATION MUST BE IN SAME ORDER AS JOBDAT 

INTERN USRPRT.USRPRl,USRPC,USRDDT,USRHCU,USRSAV,USRJDA,USRLO,USR| Ol.USRHI 



000154 USRPRT; 

000155 USRPR1==USRPRT*1 

000154 000000 000000 USRHCUl 



000155 000000 000000 USRPCi 

000156 000000 000000 USRODTl 

000157 USRJDAI BLOCK 



20 



000157 



000160 
000176 



USRLO==USRJDA 



USRL01==USRLO*l 
USRHI==.-1 



(FIRST LOC. OF PROTECTED JOB DATA 
IFIRST LOC.*l 

(HIGHEST USER 10 CHANNEL IN USE 

10 MEANS EITHER NONE OR CHAN. IN USE 

ILH=-1 DURING GET OF LOW OR HIGH SEG OR SAVE OF HIGH SE 

ISETREL ROUTINE DOESN'T STORE IN JOBHRLill?) WHEN NEG, 

ILH=-2 DURING SAVE OF LOW SEG AS FLAG THAT CORE 

I IS COMPRESSED 

IONLV CHAN. ASSIGNMENTS IN USE ARE COPIEn JNTO 

(MONITOR WHEN JOS RUNS 

IJOB PC WHEN SCHEDULER IS CALLED 

|RH==STARTING ADR, OF USER DDT.LH UNUSED 

|RH==J0B DEVICE ASSIGNMENTS (DEVICE DATA 

( BLOCK ADDRESSES) 

1 LH==UUOS DONE SO FAR FOR THIS CHANNEL<SEE SYSPAR) 

I MEANS NO DEVICE INITIALIZED ON THIS CHANNEL 

IFIRST LOC CLEARED BY SETUSR ROUTINE 

ION A CALL CSIXBIT /RESET/3 

IALSO CLEARS USRHCU 

IFIRST LOCn 

ILAST LOC CLEARED BY SETUSR ROUT. 
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982 

9»3 

984 

935 

986 

997 

988 

919 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

10513 

1004 

1005 

1076 

1007 

1008 

1079 

101 

1011 

1012 

1013 

101 4 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 



000177 

000200 

000201 
000202 



000204 
000205 



000206 
000207 



iOTHER SYSTE* DATA STORAGE 

INTERN COMCNT,CLKFLG,T!MEF,APRERR,APRPC,SCHEOF 
INTERN SORLST, COSTAL, HOLEF.SHFWAT 

INTERN FTTRPSET,FTS|_FEP.FTTIMEiFTSWAP,FT2REL,FTDISK 
INTERN HMGTlM.ciPWT.rlPwTMiNULERR.POTLST 



000000 

000000 



000000 
000000 



000000 
000000 



000000 
000000 



comcnt i 

HNGTIMI 

CLKFLGl 
TIMEF: 



000203 0000010 000000 APRERRl 



000000 

000000 



000000 
000000 



000000 
000000 



000000 
000000 



APRPCI 
SCHEOFl 



NULERRi 
POTLST ! 



000210 000000 000000 STOPTS! ? 



IFN FTTRPSET,< 
INTERN STOPTS 



INUMBER OF COMMANDS TYPEO-IN BUT NOT DECODED 

ISET BY SCNSER, DECREMENTED BY COMCON 

JHUNG DEVICE TIME COUNT CHECK FOR HUNG I * 

(DEVICES WHEN THIS GOES TO 2FR0 (ONCE A SECOND) 

INON-ZERO WHEN CLK INTERRUPT FORCED FOR ANY REASON 

IN0N-2ER0 FOR CLOCK INTERRUPT ON APR 

ISET BY APRSER, TESTED AND CLEARED BY CLK ROUTINE 

IAPR ERROR BITS ON NON-EX MEM, ETC, 

ISET BY APRSER, CLEARED BY CLK ROUTINEtCl OCK) 

IPC WHEN APR ERROR DETECTED 

/FORCED RESCHEDULING FLAG FOR CLK ROUT INF 

IUSED TO FORCE RESCHEDULING WHEN JOB IS IN EXEC MOOE 

ISET N0N-2ER0 IF MONITOR DETECTS ERROR WHILE 

I NULL JOB IS RUNNING 

1-1 WHEN SCHEDULER SEES THAT THERE ARE 

IJOBS WHICH ARE POTENTIALLY RUNABLE BUT 

IHAS TO RUN NULL JOB, 

10 WHEN IT FINOS A REAL JOP TO 

IRUN OR NULL JOB IS ONLY JOB WHICH WANTS 

ITO RUN, 'LSTWRD' IS INCREMENTED EVERY JTFFY 

I IF THIS FLAG IS -1 AND PREVIOUS JOB WAS NULL JOB 



ISTOP TIME SHARING OTHER USERS BECAUSE JTB 1 DID 
IA TRPSET UUO WITH NON-HERO ACME SET LO^ER CORE 
I PI TRAP LOCATION, ALSO STOP CORE SHUFF: ]\'G 



000211 



000000 
000034 



000210 



SLJOPN=Z iNO. OF JOBS IF NO SLEEP FEATURE 

IFN FTSLEEP,<SLJOBN=JOBN> ILEAVE ONE ENTRY PER JOB 
CIPWT: BLOCK SLJ0BN*3 ICLOCK REQUEST QUEUE 

I LH-MONITOR ADDRESS TO PUSHJ TO AT CLOCK- LEVEL 
I WHEN BITS 24-35 COUNT DOWN TO ZERO 

I HITS 18-23 ARE DATA SET IN AC T4C WHEN PUSMj 3CNE 
I BITS 24-35 ARE NO, OF CLK TICKS LEFT Tr GO 
CIPWTM=CIPWT-1 IFIRST LOC-1 OF CLOCK QUEUE 
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1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 

1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
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V><&V>7L'><i 



000250 



(STORAGE FOR VARIOUS CORE ALLOCATION FUNCTIONS 

INTERN NSWTBL>NSWMXL,C0RTA8,C0RMAX,C0RLST,C0RTAL,SHFWAT 
INTERN UPTIME.SHFWRD.STUSER.H1GHJB.CLRWRD.LSTWRO.FTTRACK 



000260 000000 

000261 000000 



000262 000000 

000263 000000 



000264 000000 

000265 000000 



000266 000000 

F00267 000000 



000000 

000000 



000000 
000000 



000000 
000000 



000000 
000000 



NSWTBL! 

CORTABl BLOCK 10 

XP C0RBLK.»D256t 
CORMAXi 

CORLSTl 



CORTALl 
SHFWAT: 



HOLEFi 

UPTIMEI 

SHFWRO: 

STUSFRi 



000270 000000 000000 HIGHjBt 



000271 000000 

000272 000000 



000000 
000000 



CLRWRDl 
LSTWRQl 



022000 NSWMXL=<,-NSWTBL-1>B26 IMAX, 



FIRST LOCATION OF MONITOR DATA STORAGE 

RETURNED BY GETTAB UUOtTHESE LOCATIONS 

PRESENT IN NON-SWAPPING SYSTEMS TOO) 

OCTAL NOS, IN () CORRESPOND TO GETTAB ARG 
(0-7)BIT=l IF CORRESPONDING K OF CORE I \ USE BY 

ACTIVE. IDLEi OR OORMANT HIGH OR LOW Sf.r,S OR NON-E 

NUMBER OF BITS IN CORE TABLE 

(101MAX. CORE REQUESTnUE LARGEST REL, ADR,*i> 

CAN BE RESTRICTED TO LESS THAN ALL OF USER CORE 

BY BUILD AND/OR ONCE 
(11)1 BIT BYTE POINTER TO LAST FREE BLOCK POSSIBLE 

SET BY SYSINI ON 143 STARTUP 

(12)TOTAL NO, OF FREE*DORMANT* I OLE CORE BLOCKS LEFT 

(13JJ0B NO, SHUFFLER HAS TEMPORARILY STnPPED 

UNTIL ITS 10 DEVICES BECOME INACTIVE, BFFORE SHUFFLING 

(141ABS. ADDRESS OF JOB ABOVE LOWEST HOlEi IF NO JOB 

(151N0, OF CLOCK TICKS SINCE SYSTEM LOAnED OR 

RESTARTED AT 143 
(16)T0T. NO. OF WORDS SHUFFLED BY SYSTEM 
(17)J0B CURRENTLY USING THE SYSTEM TAPE 

NEEDED SO CONTROL C WILL NOT TIE UP SYSTEM TAPE 
(20)HIGHEST JOB NUMBER CURRENTLY ASSIGNED 

(21) TOTAL NO, OF WORDS CLEARED BY "CLR-:OR" RTNE. 

(22) TOTAL NO, OF CLOCK TICKS WHEN NULL 
JOB RAN BUT OTHER JOBS WANTED TO RUN, B'lT 
COULD NOT BE BECAUSEi- 

1. SWAPPED OUT OR ON WAY IN OR OUT 

2. MONITOR WAITING FOR 10 TO STOP SO 
CAN SHUFFLE OR SWAP 

3. JOB BEING SWAPPED OUT BECAUSE 
EXPANDING CORE 

I INSERT NEW LOCATIONS HERE WHICH ARE OF INTEREST 
TO USERS IN NON-SWAP AND SWAP SYSTEMS 
ENTRY FOR GETTAB SHIFTED LFFT 9 



SCORE ALLOCATION DATA NOT AVAILABLE VIA GETTAB 
IFN FTTRACK,<INTERN lASCOR 

LASCOR: ILAST JOB OR HIGH SEG TO CALL CORE ROUTINES 

I (FOR DEBUGGING ONLY)> 
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1075 

1076 

1077 

1078 

1079 

1080 

10 SI 

1092 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1131 

1122 

1103 

1134 

1105 



000273 



000273 
000274 

S"00275 
000276 

000277 



000000 

300000 

000000 
0000C10 
0000F0 



000000 
000000 

000000 
000000 
0000?I0 



000300 000000 000000 SWPERC: 2 



:DATA LOCATIONS PRESENT ONLY IN SWAPPING SYSTEMS 

IFG SYS50N,< JSWAPPING SYSTFM? 

INTERN SwPTBL.SwPMXL.BIGHOL, FINISH, FORCE. FIT, SWPERC, VIRTAL 

INTERN FULCNT,MAXSIZ,MAXJBN,SUMC0R 

IFIRST LOCATION OF MONITOR DATA STORAGE 
! RETURNED BY GETTAB UUOfTHESE LOCATIONS 
I PRESENT ONLY IN SWAP SYSTEMS) 
I OCTAL NOS. IN () CORRESPOND TO GETTAB ARG 
" K01CURRENT PIGGEST HOLE IN CORE (IK BLOCKS) 

7 KD+JOBNO OF JOB BEING SWAPPED IN, 

S-JOBNO PF JOB BEING SWAPPED OUT 
c ' J(2)J0BN0 BEING FORCED TO SWAP OUT 

51 l(3)J0BNP WAITING TO BE FITTED INTO CORE 

" l(4)N0, OF FREE IK BLOCKS OF SWAPPING SPACE LEFT 

I (COUNTING DORMANT SEGMENTS AS IF FREE). 
I PRINTED WITH CORE COMMANDfNO ARG) OR ERROR 
) USUALLY THE SAME AS THE AMOUNT OF VIRTUAL CORE 
! LEFT IN SYSTEM, EXCEPT WHILE R , RUN , K JOB . GET 
I COMMAND ARE WAITING TO BE SWAPPED IN, RECAUSE 
I THE OLD DISK SPACE HAS NOT BEEN RETURNFD YET, 
I BUT VIRTUAL CORE IS ONLY 140 WORDS FOR SWAPIN 
l(5)LH= NO. OF SWAPPER READ OR WRITE FAHURES 
I RH= ERROR BITS (BITS 18-21) ♦ NO, OF K OF 
I DISCARDED SWAPPING SPACE 



SWPTRL ! 



HIGHOLi 
FINISH: 

FORCE' 

FIT! 

VIRTAL: 



005000 SWPMXL=<,-SWPTBL-1>B26 



I INSERT NEW LOCATIONS HERE WHICH ARE OF INTEREST 
I TO USER PROGS IN SWAPPING SYSTEMS 
IMAX. ENTRY FOR GETTAB SHIFTED LFFT 9 
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1106 
11017 
11018 
11019 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 



iMORE SWAPPING SYSTEM LOCATIONS (NOT RETURNED BY GETTAH) 



000301 000000 000000 FULCNTl 

000302 000000 000000 MAXSI*! 

000303 000000 000000 MAXJBN: 

SUMCORl 

000304 000000 000000 N 

IFN FT2REL.< 

INTERN SWPIN.SWPOUT 

000305 000000 000000 SWPIN! 



IPRINT DISK IS FULL EVERY 30 SECONDS 

t SIZE OF LARGEST JOB WHICH MIGHT BE SWAPPED OUT 

(NUMBER OF THAT JOB 

ITEMP USED BY SWAPPER FOR SUM OF CORE NEFDED FOR SWAP 1 



(JOB NO, BEING SWAPPEO IN IF IT HAS A HIGH SEG 

I USED TO REMEMBER THE JOB NUMRER DURING HIGH SEG SWAP 



000306 000000 000000 SWPOUTl 



IJOB NO, BEING SWAPPED OUT IF IT HASA HIGH SEG 

I USED TO REMEMBER THE JOB NUMHER DURING HIGH SEG SWAP 



INTERN FTTRACK 
IFN FTTRACK, < 

INTERN LASOUT.LASIN 



1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 



000307 



LASOUT! 
LASIN! 

> 
> 



JLAST JOB OR HIGH SEG SWAPPEO OUT 
ILAST JOB OR HIGH SEG SWAPPED IN 
I ABOVE TWO FOR DEBUGGING ONLY 



IDEFINE BLOCK FOR BIT TABLE DENOTING 4, WORD BLOCKS AVAILABLE (=0), IN U5E(=1> 
) USE MULTIPLES OF 4»36, WORDS SO THE TABLE WILL HAVE A MULTIPLE OF 36, RlTS 
I ADD 7 WORDS TO ACCOMODATE A POSSIBLE IK BEYOND MINCOR AMOUNT 

IFG DSKN, < 

INTERNAL DDBTAB. MINCOR 

DDBTABl BLOCK <M I NCOR/ f D144>+1*7 

> 
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1141 

1:1 4 2 

1143 

114 4 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1 17 7 

1178 

1179 

1110 

1131 

1162 

11*3 

1 IF. 4 

11*5 

llf 6 

11° 7 

118 8 

1159 

1192 

1191 

1192 

1193 



;monitor tables with one entry per job 

intern jrtsts,j8tadr,jbt0at, jbtnam, jbtprg 

INTERN JOBMAX,JBTMAX,MJOBN,JBTADl, jogmxl, JBTMXL 
INTERN FTTIME.FTKCT.FTPRV 



000033 

033000 

777777 777744 

000034 



J0BMAX = = J0(SN-1 

J0BMXL = = <J()BMAX>B26 

MJ0BN==-J0BN 

IFG KT10AN f <SEGN==JOBN' 



000331 



000421 



000511 

000511 



000067 JBTMAX = = J0E!N*SEGN-1 

067000 JBTMXL=<JBTMAX>B26 

JBTSTS: RLOCK JOBN+SEGN 



JBTADRi BLOCK JOBN-"SEGN 



000422 JBTAD1"JBTADR*1 

000421 JBTDAT"JBTAOR 

INTERN JBTSGN 
JBTSGN: IFG SEGN, < 
BLOCK JORN 



000545 



F0K545 



JBTDIHi 



XP ITMSGN, ITEM*JOBMXL 

IFE SEGN, < 



XP ITItSGM. JORMXL 



IFG DSKN,< 

INTERN PRJP^Gi JBTDIR 



PRjPRGi BLOCK JOBN*SEGN 
> 

IFE DSKN,<IFG SEGN,< 
INTERN JBTDIR 
JBTDIR=,-J0|JN 
BLOCK SEGN 



000635 



>> 



RT IMF : 



IFN FTTIME,< 
INTERN RTIMj;,TTIME 
BLOCK JOBN 



IMAX, LECAL JOB NUMBER 

(HIGHEST JOB NO, SHIFTED LEFT 9IF0R GETTao UUO) 
INEG. NOS, OF JOBS(C0UNTING NULL JOB) 
SEGN> IIF ANY HIGH SEGMENTS, 
I MUST HAVE AT LEAST AS MANY AS JOBS 
(HIGHEST INDEX IN JBT TABLES 

(HIGHEST JBT ENTRY SHIFTED LEFT 9IF0R GETTAB UUO) 
I JOB AND HIGH SEG STATUS wORD 
ILH==STATUS BITStSEE S.MAC FOR DESC.) 
IRH==QUANTUM RUN TIME LEFTISEE CLKCSS) FpR LOW SEGS 
IRH=IN CORE COUNT FOR HIGH SEGS 
(JOB ANO HIGH SEG CORE ASSIGNMENT 
I LH==PROTECTION, ( LENGTH-1 ) RH==RELOCAT ION 
J <ABS. LOC, IN CORE) 
IADR, OF JOB KUSED BY SYSMAK) 
1RH==A0DRESS OF JOB DATA AREA 
ISAME AS JBTADR(JDAT=»PR0G) 



(SEGMENT NUMRER OF HIGH SEGMENT THIS JOB 

I IS USING IN CORE OR DISK 

I MEANS JOB DOES NOT HAVE HIGH SEG 

I LH=USER DEPENDENT HIGH SEG STATUS BITS 

I (SEE S.MAC) 

ILH SYSMBOL FOR GETTAB UUO 



ILH SYMBOL FOR GETTAB UUO 

ISO THAT JBTSGN IS UNDEFINED 

(I.E. MAKE INDEXING BY ITEM BE 

I BUT ALLOW REFERENCES UP TO JOBMXL 

(DISK SYSTEM? 

I NIGH SEGMENT DIRECTORY NAME(DSK) OR PHYSICAL 

I DEVICE NAME(DTA,MTA) 

IXWD PROJECT NO. .PROGRAMMER NO, 

(REENTRANT MONITOR WITHOUT DISK? 

(INDEX BY HIGH SEG NUMBER 

IHIGH SEGMENT PHYSICAL DEVICE NAME ( OTA . *TA ) 



(TOT, RUN TIME SINCE LAST IJOB CR RUNTIMr 
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1194 000671 
1195 



TTIMES 
> 



BLOCK JOHN 



ITOT. RUN TIME SINCE LAST IJOB 



CO w MON 



1196 
1197 
1198 
1199 
1200 
1221 
1202 
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00P725 



IFG SYS55INi< 
INTERN JSTSWP, JBTCHK 
JBTSWPl BLOCK JOPN+SEGM 
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■SWAPPING SYSTEM? 

ILH!=sPROTECT TIME WHILE JOB IS IN CORE, 

I DISK ADDRESS WHILE SWAPPED OUT 

I BITS18-26:==0UTC0RE IMAGE SI2E 

I BITS27-35:==INCORE IMAGE SI2E 

; FOR HIGH SEG, LH ALWAYS DISK ADDRESS 
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I2" Mlial5 JBTCHK ' PL ° CK J° B ^SEGN .CHECK SUM FOR SWAPPED OUT JOB DATA AREA OR 

1205 I SAME AREA FOR HIGH SEG 

1206 > 

llll llllll jbtPrg! Rinr K mp M *crr u ' N * ME ° F HlGH S EGMEN T ( F I LE IT WAS INITIALIZED FR f 

1209 JBTPRGl BLOCK JOBN'SEGN , N AME OF FILE USED IN LAST R, RUN. GET, ETF. 

1210 |FN FTKCT>< ' USED BV SYSTAT PROGRAM 
WW „„,,,■= INTERN JBTKCT 

l|l3 JBTKCT ' 8L0CK J ° BN (PRODUCT OF CORE LENGTH(IN K) TIMES NO. nF JIFFIES 

1214 > ' PROGRAM USED CPU, USED FOR TIME ACCOUNTING. 

J215 IFN FTPRV,< 

1317 „„,-,-,, INTERN JBTPRV 

\lll ( " I1Z31 JBTPRV. BLOCK JOBN .PRIVELEGE BITS FOR JOB SET BY LOGIN 

Wll ,FG DSKN,< 

\22\ INTERN MQUEUE.MQTOP 

1222 001265 MQUEUEI BLOCK JOBN JOISK MONITOR 10 QUEUE 

llll 001321 > "OTOP-. )L AST LOC*l OF MONITOR QUEUE 

WW IFG SYS50N,< 

1227 



.THE FOLLOWING ARE USED TO CREATE MXQUE 

1228 777777 77,77, '™ E M * X ' «^ QUEUE S I EE , USEO By SWAPPING SCHEDULER ( SCHEO ) 

^29 " 7777 7777?? FTDISK — DSKN .DEFINE FEATURE SWITCH FTDISK. SINCE IT APPEARS 

1230 ' IN MACRO QUEUES 

1231 vn „„ ' WHICH IS DEFINED IN S.MAC 
^32 XP MXQUE.Bt 

1233 
1234 



ULL 'LIST QUEUE DEFINITIONS FOR ALL TO SEE 



WW «.„„„„„ DEFINE X <MXQUE=*M X QUE*2|> 

Ull mSK r^^UE^M^U E U ^i:2^l!o R ^ 7 T 'i;?^F G 7E T D RUN (L ° WEST "»"»'"'«„.., 

Wio llll*A * ^XQUE = = MXQUE + 2|t T S.6 .TTY 10 WAIT SATISFIED 

J"' 000010 X fMXQUE = = MX0UE*2l'ST,6 .SYSTEM TAPE WAIT 

jf, 40 IFN FTDISK. < 

Wll llllW * , MXQUE«MX0UE*2l»AU,4 .ALTER DISK UFD QUEUE 

1243 1111)1 X , M x 0UE = = MX0UE + 2.tMO,4 .MONITOR DISK QUEUE 

1244 000016 x 'MXQUE==MXQUE*2.tDA,4 .DISK STORAGE ALLOCATION WAIT 



X t M xQUE==MXQUE+2l »DT,4 IDECTAPE CONTROL WAIT (UP TO 8 DRIVES) 

v luvnuP^SM^" 00 ' 4 ,DATA CO^ROL (DC) WAIT - MAGTAPE ANn DECTA 

X t M XQUE=-MX0UE*2l»MT,4 (MAGTAPE CONTROL WAIT (UP TO S UNITS) 



1245 000020 

19*7 rtn„«„^ "«wi_ i^wvc-rc . ' ui. » -t » u « I A u u ^ I rc u L tut) WAIT - MACTAPF AMD nrrTAPr 

J 24 ' 000024 X t M XQUE = = MX0UE + 2l»MT.4 iMAr.TiPr ™«n. In' ,„, ™ 1 f. T. . , 2f . D ECTAPE 

1249 DEFINE X (A) 

1250 

Wl\ <A'Z==MXQUE 

"^ INTERN A'Z 

lilt MXQUE==MXQUE+1> 

Wli 000024 CODES* X IOW,f[OWZ = «MXQUE 

1255 INTERN I0W2 
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1256 
1257 
1258 
1259 
12615 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
12 50 
1281 
1232 
1233 



(101321 
001355 



000025 
000025 



000026 
000026 



000027 
000027 



000030 
000030 



000031 

000034 



=MXQUE*1» III WAIT 
= M X Q U E 



001354 
001356 
001326 



MXQUE= 
X TinW,tTIOW^= 
INTERN TIOW2 

MX0UE==MXQUE*1» ITTY 10 WAIT 
X SLP. '■Sl_PZ = = MXQUE 
INTERN SlPH 

MXQUF==MXQUE*l t IJOB SLEEPING 
X NUL. <'NUL2 = =MX3UE 
INTERN NUL? 

mXTUE==MXQUE>1* IJOB NUMBER MOT ASSIGNED 
X STOP. tSTOPH==MXQUE 
INTERN STOPZ 

MXQUE==MXQUE>1» ISTOP (CONTROL C) 



MX0UE==MX0UE>3 



XALL 



IBACK TO NORMAL MACRO EXPANSION 



INTERN JBTO,jBTQMi,juTDpi,JBTQMN 

BLOCK MXC1UE INO. OF OUFUES FOR SWAPPING SCHEDULER 

JBTOi BLOCK JO^N I ONE ENTRY PER JOB. 

; LH = PREVIOUS JOB, RH=NEXT JOB I'i QUEUE 
I NEGATIVE MENAS THIS IS FIRST (LH) OR LAST (RH) 
I JOB IN QUEUE 
JBT0M1==JBTQ-1 IjBTQ-l 

JBTQP1==JBT0*1 IJBT0+1 

jBTQh<N==JBTQ-NUL? !J1 
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1284 
1235 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1296 
1299 
1300 
13711 
1302 

1303 
1304 
1305 
13516 
1307 
1308 
1309 
1310 



001411 



001442 



777777 
"777777 



001444 



001441 
000030 



000033 

777744 
777745 



[TTY TRANSLATOR TABLE 

(INDEXED BY TTY LINE NUMBER, CONTAINS TTY ODB ADDRESS IN RM 

((ASSIGNED WHEN FIRST CHARACTER TYPED ON TTY BY SCNSER 

(BIT = = 1 IF COMMAND TYPED BUT NOT PROCESSED 

(BITS 6-ll==jOB NUMBER TTY IS ATTACHED TO 

(BITS 12-17==NEXT LINE NUMBER IN TALK RING OR ITS SELF IF NOT TaiKING 

INTERN TTYTAB,PTYTAB,TPYTAB,TCONLN,MLTTYL.MTTYLN,TTPLEN,TTMODL.TTPMXL 



TTYTABl BLOCK HGHLIN+1+1 
TPYTAB==.-1 
TCONLN==.-l-TTYTAB 
BLOCK PTYN 



TTPLEN==.-TTYTAB 
TTPMXL = = <TTPl_EN-l>B26 



mlttyl==-jobn 
mttyln==-ttplen 

PTYTABl BLOCK PTYN*1 



INO OF TTYS PLUS CTY 

IADDRESS OF LAST ENTRY 

I LINE NUMBER OF CTY 

IPSEUDO TTY TRANSLATOR TABLE 

I THIS IS FOR THE LINKED TTY LINES. 

( NOT THE DEVICE "PTYN"'S DDP 

ILENGTH OF ENTIRE TABLE 

(HIGHEST ENTRY IN TTYTAB SHIFTED LEFT 9(FDR GETTAB UUO) 



INEG, NO OF TTY DDBS (ONE FOR EACH JOB, PLUS 1 EXTRA 
I SO JOB CAPACITY EXCEEDED MESSAGE CAN BF TYPED 
INEG, LENGTH OF ENTIRE TRANSLATOR TABLE 



IADDRESSES OF THE DDBS FOR DEVICE PTYN 
I NOT THE LINKED TTY LINES. SEE TPYTAB. 
(LAST LOCATION CLEARED BY SYSINI ON 143 RESTART 
001446 SYSEND==,-1 
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1311 








1312 








1313 


000150 






1314 








1316 








1316 








1317 








1318 








1319 








1 3 2 








1321 








13?2 








1373 








137* 








1325 








1326 








1327 








1326 








1329 


000150 


4 7 6 1» 


000246 


1330 


("00151 


334040 


000000 


1331 


000152 


402000 


000246 


1332 








1333 


000153 


542040 


000245 


1334 








1335 








1336 


000154 


205040 


777746 


1337 


000155 


201300 


001460 


1338 


000156 


2001*1 


000252 


1339 


000157 


3221JI0 


000226 


1340 


000160 


332000 


000246 


1341 


000161 


506106 


000003 


1342 


000162 


550300 


000002 


1343 


000163 


135600 


000247 


1344 


000164 


363600 


000226 


1345 


000165 


550240 


003006 


1346 








1347 


000166 


201740 


000001 


1348 


000167 


135640 


001566 


1349 








1350 








1351 









iONCF ONLY CODE TO CREATE DEVICE DATA BLOCKS 



IOC SySBEG 



i put in system data area so not to takf 

I VALUABLE SPACE. THIS AREA IS CLEARED 
! BY SYSINI AFTER IT HAS BFEM EXECUTED 



,CMTDb- ROUTINE TO MCREASE SIZE OF MONITOR FOR MULTIPLE DEVICE DATA BLO-KS 
I ROTH DISK AND OTHER DEVICES ( IjT A , MT A , SCN . PTY ) BLC.KS 

i CALL! JSP TAC.CNTOB (FRO" LONG ONCE DIALOG) 

1LINKDB- ROUTINE TO CREATE MULTIPLE! DEVICE DATA BLOCKS (EXCEPT DISK) 
i AND LINK THEM. THESE ARE STORED ON TOP OF ONCE ONLY CODE 
(CALL' JRST LINKOB IFROM LU'KSR) ' "' " 

SBOTH ROUTINES UPDATE SYSSI? AS MORE DDR SPACE IS CONSUMED 

INTERN LINKQH.CNTOB 
EXTERN LINKS'! 



LINKDBi SETOM DESONC 

SKIPA TACLIMKSR 
CNTDP: SETg" DESONC 

HRRM TAC, LINKED 



^lOVS I TAC.INTNUM 
MOVEI OEVDAT.DEVL 
LOOP: MOVE TACl.INTTBK 
JUMPE TAC1.NEXT 
SKIPE DESONC 
HRLM TACl,DEVSER 
HRR? DEVDAT.TACl 
LDB UUO.DDBNUM 
SOJLE UUO.NEXT 
HRR2 JBUF,OEVDAT 

MOVEI AC3.1 
LDB AC1.PUNIT 



IPERMIT DESTRUCTION OF 0"CE ONLY CODE 

)GET JSRPC OF CALLER OF LINKSR ]m ONCE 
(PREVENT DESTRUCTION OF ONCE ONLY CODE 
ISO THAT E.G. SAT TABLES MAY BE SCANNED 
ISTORE EXIT FROM THIS ROUTINE (ONCE ONLY CODE MILL 
I BE OVERLAYED BY MULTIPLE OEVICE DATA 
I BLOCK GENERATION) 
1NEG NO, OF ENTRIES IN TABLE 

st-^evsfr , MAKE DEVLST L00 ^ LIKE 0EVSER IN| A D0B 

TAC) IGET NEXT DEVICE DATA BLOCK ADDRESS 

10 MEANS NO DOB FOR DEVICE 

! OK TO DESTROY ONCE ONLY CODE? 
0(:vr|AT > 'YES, STORE IN PREVIOUS DEVICE DaTA BLOCK 

(MAKE DEVDAT POINT TO CURRENT DOB 

IGET NO, OF DOB'S 

IONE OR LESS? 

JNO, CREATE MULTIPLE COPIES OF DOB 

1 SAVE ORIGINAL IN JBUF 

(STARTING WITH DEVI , DEV2 , DEV77 

(START UNIT NUMBER FROM 

i ASSEMBLE OEVICE DATA BLOCK 

I PTY STARTS UNIT NO, AT 1 INSTEAD OF 

I ALTHOUGH DEVICE NAMES ARE PTY0 , p T Yl , E TC , 
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1352 000170 550100 001461 MULODBl HRRZ TAC1.SYSSIZ IADR, OF NEXT DDB IS AT END OF MONITOR 

I OK TO DESTROY ONCE ONLY CODE? 
) iYES.MAKE PREVIOUS DOB POINT TO ONE ABOUT TO BE CREATE 

ISOURCE ADDRESS TO LH 

(DESTINATION ADDRESS TO RH 

ILENGTH OF DEVICE DATA BLOCK 

ILAST LOCATION*1 AFTER MOVE 

I OK TO DESTROY ONCE? 

INO. JUST COUNT DDB SPACE 

IMOVE ORIGINAL TO FREE STORAGE 

IIS THIS QECTAPEfANY OF 3 SERVICES)? 

INO 

IYES,DESTINATION 

I-SDURCE=D1STANCE MOVED 

I INCREMENT POINTER TO DIRECTORY BLOCK 

I (SORRY ABOUT NO SYMBOL) 

IBYTE POINTER TO NEWLY CREATED 

I DDB PHYSICAL NAME 

IMAKE COPY OF UNIT NO, 

IIS IT 10 OR MORE? 

INO 

IYES, CONVERT HIGH ORDER OCTAL DIGIT TO 

ISIXBIT 

IAND STORE 

ICLEAR OUT HIGH ORDER DIGIT 

IMOVE LOW ORDER DIGIT BACK 

ICONVERT LOW ORDER DIGIT IN SIX8IT 

IAND STORE IN PHYSICAL NAME 

I INCREMENT BINARY UNIT NUMBER 

ISTORE UNIT NUMBER 

(COMPARE WITH HIGHEST DEVICE NUMBER 

IDO ANOTHER COPY 

IMOVE BY TWOS 

IANY MORE DEVICES 

INO, FLAG END OF DEVICE DATA BLOCK CHAIN WITH LINK 

I OK TO DESTROY ONCE? 

IYES, STORE IN CASE LAST DDB IS MULTIPi E 

(SIZE OF MONITOR SO FAR < SYSMAK , EXEC DDT OR NOT! 
(SAVE POINTER TO FIRST 4 WORD BLOCK 
I MINIMUM REQUIRED FOR DISK DDBS 
IFORCE TO IK BOUNDARY 

ISTORE SIZE OF MONITOR (FIRST FREE LOO 

IFORM LENGTH OF EXCESS CORE 

IMUST BE MULTIPLE OF 144, WORDS (SEE DDBTAB) 

I -N 

ISTORE USEABLE LENGTH OF DDBTAB 

(RETURN TO SYSINI 



1353 


000171 


332000 


000246 


SKIPE DESONC 


1354 








HRLM TACl,DEVSER(DEvnAT 


1355 


000172 


5061F6 


000003 


D 


1356 


000173 


504300 


000005 


HRL DEVDAT.JBUF 


1357 


000174 


5403F0 


000002 


HRR OEVDAT.TACl 


1358 


000175 


554701 


000252 


HLRZ AC2, INTTBl(TAC) 


1359 


000176 


273700 


001461 


ADDB AC2,SYSSIZ 


1360 


000177 


336000 


000246 


SKIP!" OESONC 


1361 


000200 


254000 


000224 


JRST JUSTCT 


1362 


000201 


251316 


777777 


BLT DEVDAT,-1UC2> 


1363 


000202 


331001 


000251 


SKIPL INTTAB(TAC) 


1364 


000203 


254000 


000207 


JRST NOTDTA 


1365 


000204 


550700 


000006 


HRRZ AC2.DEVDAT 


1366 


000205 


275705 


000000 


SUBI AC2,(JBUF) 


1367 


000206 


272706 


000014 


ADOM AC2,14(DEVDAT) 


1368 










1369 


000207 


200340 


000250 


NOTDTAI MOVE PROG,PHYNAM 


1370 










1371 


000210 


200200 


000017 


MOVE ITEM.AC3 


1372 


000211 


606200 


000070 


TRNN ITEM, 70 


1373 


000212 


254000 


000220 


JRST SMALL 


1374 


000213 


241200 


777775 


ROT ITEM, -3 


1375 


000214 


271200 


000020 


ADDI ITEM, 20 


1376 


000215 


136200 


000007 


IDPB ITEM, PROG 


1377 


000216 


620200 


777777 


TRZ ITEM.-l 


1378 


000217 


241200 


000003 


ROT ITEM, 3 


1379 


000220 


271200 


000020 


SMALL! ADDI ITEM, 20 


1380 


000221 


136200 


000007 


IDPB ITEM, PROG 


1381 


000222 


271640 


000001 


ADOI AC1.1 


1382 


000223 


137640 


001566 


OPB AC1.PUNIT 


1383 


000224 


305754 


000000 


JUSTCT! CAIGE AC3, (UUO) 


1384 


000225 


344740 


000170 


AOJA AC3,MULDDB 


1385 


000226 


253040 


000227 


NEXT! AOBJ\' TAc. ,+1 


1386 


000227 


253040 


000156 


AOBJM TAC, LOOP 


1387 


000230 


201040 


000000 


MOVE! TAC.0 


1388 


000231 


332000 


000246 


SKIPE DESONC 


1389 


000232 


506046 


000003 


HRLM TACOEVSER(DEVDAT) 


1390 








IFG DSKN,< 


1391 








EXTERN LOCORE,CRINIT 


1392 


000233 


200040 


001461 


MOVE TAC.SYSSIZ 


1393 


000234 


202040 


000000 


MOVEM TACLOCORE 


1394 


000235 


271040 


002750 


ADDI TAC.MINCOR 


1395 


000236 


435040 


001777 


IORI TAC, 1777 


1396 


000237 


271040 


000001 


ADDI TAC1 


1397 


000240 


202040 


001461 


MOVEM TAC.SYSSIZ 


1398 


000241 


274040 


000234 


SUB TACLOCORE 


1399 


000242 


231040 


000220 


IDIVI TACf*D144 


1400 


000243 


210040 


000001 


MOVN TAC, TAC 


1431 


000244 


506040 


000000 


HRLM TAC.CRINIT 


1402 








> 


1403 


000245 


254000 


000245 


LINKEDl JRST , 


1404 
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14?5 
14(16 
1.417 
14JI6 
1409 
1410 
1411 



000246 000000 000000 OESONC: (* 



000247 
000250 



3310*1 
2206^6 



000251 
000000 



OOBNUMi 
PHYNAM: 



POINT 8. INTTAB(TAC) . c 
POINT 6,QEVNAM<QEVDAT) 



IFLAG =0 IF CALLED BY JSP tac.CNTDB 
; (00 NOT DESTROY ONCE) 

I FLAG N0N-2ER0 IF CALLED RY JRST LI'.'KDS 
I (OK TO DESTROY ONCE CODE) 
IPOINTER TO DDP NUMBER 
1 17 I BYTE POINTER TQ DP PHYSICAL NAMr 
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1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 



(MACRO TO DEFINE PI CHANNEL k 'UMBER AND GENERATE INTERRUPT CHAINN1NG 

I INFORMATION FOR ONCE 

ISO IT CAN LINK THE DEVICE INTERRUPT SERVICE ROUTINES AND THE DEVICE DATA BLOCKS 

;TABL£ INTTAB IS GENERATED WITH PAIRS OF ENTRIES FOR EACH DEVICE 

(WHICH HAS A DEVICE DATA 6LOC10-7) 

(FIRST WORDI BIT = *1 IF DECTAPE.BITS l-9==NO, OF DDSS.BITS 9-17==PI CHANNEL(0-7> 

(0 MEANS NO PI CHANNEL (EG PTY) 

(SECOND WORD!LH==0 IF SINGLE DEV I CE , ==LENGTH OF DOB IF MULT IPLE , RH= =DDB ADDRESS 

(MACRO FOR DEVICES WHICH ARE ALWAYS PRESENTUNO WHICH DO NOT USE A CHANNFL SAVE ROUTINE 

(AND HAVE NO DDB ( EX-APR , CTY , PEN, CLK ) 

DEFINE SPASGINT (DEV, PI) < 
DEV<N==1 
ASGINT DEV<PI 

> 



1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 



DEFINE 



> 
>> 



ASGINT (DEV.PIX 
IFG DEV'N,<IFG PI,< 
IFE <PI-.CH>,<,CHAS==1 
INTERN DEV'CHN 

DEV'CHN==P! 
EXTERN DEV'INT 

XWD PI, DEV INT 

XWO 0,0 
ASGIN1 <DEV,\P!) 



(CHANNEL PI IN USE> 



(INTERRUPT SERVICE CONSO INSTRUCTION 
(GENERATE INTERRUPT ENTRY POINT FOR ONCE 
(NO DDB TO CHAIN TOGETHER 



DEFINE ASGIN1 (DEV.PIX 

IFDEF CH'PIX I WAIT TILL PASS 2 TO DEFINE 

DEV'CHL=»CH'PJ 
INTERN DEV'CHL 



>> 

(MACRO 



DEFINE 



DEFINE 



FOR OPTIONAL DEVICES (ALWAYS USE CHANNEL SAVE ROUTINE) 
I (EXAMPLEI CR, DSK, PTR, ETC, ALSO PTY WITH PI) 

SPASGSAV (DEV.PI.NUM) < 

DEV'N==NUM 

ASGSAV DEV. PI 



ASGSAV (DEV, PI) < 

IFG DEV'N, < I FG PI , < 

EXTERN DEV INT 

> 
EXTERN DEV'DDB 
ASGSV1 (DEV,\PI) 
>> 



I INTERRUPT SERVICE CONSO INSTRUCTION 
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1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1483 

148.1 

1483 

1483 

1484 

1485 

1486 

14 87 

1488 

148') 

1490 

1491. 

1492 

1493 

14 94 

1495 

1496 

1497 

1496 

1499 

1502 

1501 

15P2 

1503 

1504 

1505 

15C6 

1507 

15P8 

1509 

1510 

1511 

1512 

1513 
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MACRO FOR: 



1. COMPLFTIO 1 : OF THE DEFINITION REQUIRED FOR THOSE 
DEVICES I"VOKING THE ASGSAV MACRO 

2. COMPiFTE nEFlMITION FOR THOSE DEVICES WITH THFIR 
INTERRJPT ENTRY POINT AND DDB'S IN CO"MON 
(EXAMPLE: LPT'S) 



DEFINE ASGSvl (DFV.PI) < 
IFG PI, < 

IFE <P|-,CH>,<.CHAS"1 
DEV'CHNssPI 
INTERN DEV'C-'N 
USED'PI—1 



(CHANNEL PI IN USE> 
IDEFINE DEVICE CHANNEL NUMBER 
(DECLARE INTERNAL - ONLY IF DEVICE WANTED 
ISET FLAG SO THAT A CHANNEL SAVE 
( ROUTINE WILL BE GENERATED FOR 
i THIS PI CHANNEL 



IFDEF SAV'PI , < 



'WAIT TILL CHANNEL SAVE ROUTINES 

( ARE DEFINED BELOW (IN PASS 2) 



DEV'SAV — SAV'PI 
DEV 3ET==RET'PI 



nEv ' ;hl — Ch <°i 

0£V' "AC = = SAVAC'PI 



iCHANNEL AC SAVE ROUTINE LOCATION 
(CHANNEL AC RESTORE ROUTINE LOCATION 
I 'USUALLY POPJ USED) 

(LOCATION WHERE INTERRUPT PC IS STORED 
(STARTING CHANNEL SAVE LOCATION FOR AC'S 



INTERN OEV'SAV, DEV'RET, OEV'CHL, OEV'SAC 



>> 

DTBIT==0 

IFIDN <DEV>,<DTA>,<DTBIT==1> 
IFIDN <0EV>,<DTO.<0T8IT«l> 

IFE PI, < 

xwd nEvN»i000*»s,0 
> 



(ASSUME THIS IS NOT A OECTAPE 

IIS IT POP-10 DECTAPES? 
( OF PDP-6 DECTAPES? 



(NO PI CHANNEL FOR THIS DEVICE 



IFG PI, < 

XWD OTBI T»40C000 + di:v 'N»1000*PI ,DEV INT (FIRST WORD 



IFG DEV'M-1. < 

XWD rEv ' ODS.nEV 'DO" 
FXTF.SN D^V'DHS 

> 

IFE DEV'N-1, < 

XWD ?,DEV'DDR 
>> 



(MULTIPLE DEVICE SECOND WORD 



(SINGLE DEVICE SECOND WORD 



COMMON 



1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
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(MACRO'S TO ALLOW GENERATION OF MULTIPLE INTTAB ENTRIES FOR MULTIPLE 
! DEVICES SUCH AS LINE PRINTFRS 

DEFINE MULASC (DEV.DE.PI) < 

IFG DEV'N, < 
2Z = = 
REPEAT DEV'N, < 

DEVASG DF,\2Z,PI 

> 



DEFINE OEVASG (DE.X.PI) < 

DE'X'N==1 
ASGSV1 DE'X,\PI 



1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 



JMACROS TO CONTROL ASSIGNMENT OF PI CHANNELS TO DEVICES 

DEFINE NEXTCH< ,CH==,CH*1 

.CHAS==0 

NEXTCU (\,CH) 

> 

DEFINE NEXTCO< IFN . CHAS , <NEXTCH>> 

DEFINE NEXTCU (N) <IFDEF UNIOiN,<IFN UN I ' N, <NEXTCH>>> 
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1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

157.3 

1571 

1572 

1573 

1574 

1575 

1576 

157 7 
1578 
1579 
1580 
15R1 
1582 
15" 3 
1514 
1585 
1586 

158 7 
1588 
1589 
1590 
1591 
15 9 2 
1593 
1594 



("00251 



000251 
000252 



002000 
000000 



000000 

000000 
000000 

000000 
000000 
000000 

000000 



000001 

000034 

000001 
000001 



000252 

000000 
003000 

000000 
000000 
000001 



;ASSUME NO PI CHANNEL SAVE ROUTINES NEEDED 

USEO1==0 

USED2 — B 
USED3==0 
USED4==0 
USFQ5==0 
USED6==0 
USED7==0 

!NOW GENERATE THE TABLE FOR ONCE AND OEFINE PI CHANNEL ASSIGNMENTS 

INTERN lNTTA9.INTTBl,INTNUM,SCNNiCTYN 

CTVN==1 (ALWAYS ONE CTY 

3CNN=-JOPN (NUMBER OF SCN ODB 

I ONE FOR EACH JOB ♦ NULL JOBtEXTRA ONE) 
4PRN==1 IALWAYS AN APR 

CLKN==1 (ALWAYS LOWEST PRIORITY CLOCK 

INTT4B! I TABLE OF DATA FOR DEFINING PI CHAM AND NO. OF DnE 

INTTR1==INTTAB*1 
ASGSAV PTY.0f 

:<WP PTY ' N«10?0*0.0 



!<WD PTY'ODS.PTY'ODB 



1NO CHANNEL FOR THIS DEVICE 
(MULTIPLE DEVICE SECOND WORD 



.CHAS==0 
,CH = = ie 
NEXTCHt ,CH = = 



,CH*1 



(THE FOLLOWING DEVICES MUST uAVE A UNIOuE, HIGH PRIORITY 
i CHANNEL FOR BLOCK I/O TRANSFERS. 

(NOTE THAT THE PUP-6 DECTAPE AND MAGTAPE SHARE A 
i 136 DATA CONTROL IF BOTH ARE PRESENT, 

(DATA PRCOUCTS DISK PLKQ/BLKI Pi CHANNEL 

IFNDEF DrBCHN,<IEG DPQN,<xP DCBCHN..CH 

NEXTCH>> 

(PDP-6 OR PQP-10 MAGTAPE BLKI/BLKO PI CHANNEL! 

IFNDEF MTDCH\).<IFG MTAN,<XP MTDCHN..CH 

\'EXTCH>> 

IFNDEF DCTCHN,<IFG MTCN,<XP DCTCHN..CH 

NEXTCH>> 

(PDP6 OH PDP10 DECTAPE BLKI/BLKO PI CHANNEL! 

IFNDFE DTDCH\'.<IFG DTAM,<XP DTDCHN..CH 

NEXTCH>> 

IFNDEF DCTCH*',<IFG 0TCN,<XP DCTCHN..CH 

'!EXTCH>> 



000003 



IFNDEF HLK M XC, <BLKMXC= . CH> 

,CH==HLKMXC 



IREMEMBER THIS CHANNEL ON PASS 1 
ION PASS 2. SKIP OVER BLKI CHANNFLS 



COMMON 
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1595 








1596 








1597 


000253 


001003 


000000 


1598 


000254 


000000 


000000 


1599 








1600 


000255 


000003 


000000 


1601 


000256 


000000 


000000 


1602 








1603 






000004 


1604 









(THE FOLLOWING ARE GROUPED 0<" A CHANNEL FOR HIGH-PRIORITY DEVICES 

ASGSAV CDR. .CHt 

XHD DTBIT»400000*CDR'N«1000*3,CDR'INT jFIRST WORD 
XWD P.CDR'DD? (SINGLE DEVICE SECOND WORD 

ASGINT APR, .CHt 

XWD .CH.APR'INT (GENERATE INTERRUPT ENTRY POINT FOR ONCE 

XWD 0.0 (NO DOB TO CHAIN TOGETHER 



NEXTCQt IFN ,CHAS.<NEXTCH>tt 



,CH==,CH*1 
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1605 
1606 
16 PI 7 
161*8 
1679 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
164 
1641 
1642 
164 3 
16 4 4 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
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000257 
000260 



700261 
000262 



000263 
000264 



000265 
000266 



000267 
000270 



000271 
000272 



000273 
000274 



000275 
000276 



000277 
000300 



03 4 004 
000000 



001004 

000000 



001004 
0000C0 



410004 
000000 



000000 

000000 



000000 
000000 



002074 
002100 



000000 
000000 



003004 000000 
000000 000000 



00000 4 
000000 



001005 
000 00 



001005 
000000 



001005 
000000 



000000 
000000 



000000 

000000 



000000 
000000 



000000 

000000 



THE FOLLOWING ARE MED I u M - p R I OR I TY DEVICES. AS A GROUP 

ASGSAV SfN. .CHt 

XWD DTR] To40C000+SCN' N»1000+4,SCN' INT (FIRST WORD 
XwD SCW QDS.sCMDon IMULTIPLE DEVICE SECOND WORD 

ASGSAV PTR. ,CHt 

XrfD nTRl T«40pi000+PTR ' N»1000*4,PTR • INT iFIRST WORD 

XWD 0,DTR"DD n (SI>vGLE DEVICE SECOND WORD 

"ULASG LPTiLP. ,CHt 

XWD DTSIT»400000*L p 0'N»1000i-4,LP0' INT JFIRST WCRD 
XWD 0,LP0'OD n (SINGLE DEVICE SECOND WORD 

4SGSAV DTA,,CHt 

XWD DTP IT«40!J000 + OTA 'N»1000*4,DTA ' INT (FIRST WORD 
XWD DTA'ODS.nTA'nDR [MULTIPLE DEVICE SECOND WORD 

ASGSAV DTC. .CHt 

ASGSAV MTA..CHt 

XW1 DT3I To40oi000*MTA ' N»1000+4 ,MTA ' INT [FIRST WORD 
XWO mTa 'OOS.t'TA'DDB IMULTIPLE DEVICE SECOND WORD 

ASGSAV MTC. .CHt 

ASGINT CTY. .CHt 

X*3 .CH.CTY'INT (GENERATE INTERRUPT ENTRY POINT FOR ONCE 
XWO 0.3 (NO DOB TO CHAIN TOGETHER 



000005 NEXTCUt IFN . CHAS , <NEXTCH>t t 



,CH==,CH*1 



(THE FOLLOWING ARE LOWER-PRIORITY DEVICES, AS A GROUP 

ASGSAV DSK . .CHt 

XWD OTqiT»4z^000+oSK 'N«1000*5,DSK' INT (FIRST WORD 
XWD 0,nSK'OQn (SINGLE DEVICE SECOND WORD 

ASGSAV PFN..CHt 

ASGSAV PTP , .CHt 

XWD OTRITo400000tpTP l N«1000t5,PTP' INT (FIRST WORO 
XWD 0,PTP'OD R (SINGLE DEVICE SECOND WORD 

ASGSAV COP. .CHt 

ASGSAV PlT , .CHt 

XWD DTRIT»400000*PLT'N»1000+5,PLT' INT (FIRST WORD 
Xw!) f.PLT'DDS (SINGLE DEVICE SFCONn WORD 



000006 NEXTCQt IFN , CHAS,<NEXTCH>t t 



,CH",CH + 1 



000301 000007 



000007 

000000 



[THE DISPLAY GETS !TS On*' LO'--PR I OR I TY CHANNEL 
ASGSAV CIS,. .CHt 

NEXTCUt IFN .CHA? ,<NEXTCH>t 

(LAST IS THE SCHEDULER. ON CHANNEL 7 BY ITSELF 

If G <.CH-7>,<PRINT>: [NOT ENOUGH PI'S TO SERVICE THIS CONFIGURATION 

PRINTX (SUGGEST FDITING COMMON TO PUT MORE DEVICFS ON 
PRINTX ; A SINGLF CHANNEL> 

,CH = = 7 "n.t»7 t-, 

ASGINT CLK, .CHt 

XwC! .CW.Clkmnt (GENERATE INTERRUPT ENTRY point FOR ONCE 
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1657 0003P2 00IW0 
1658 



00H0P0 



XWD ?!,!" 



■ V437 MACRO, V36 19S02 4-JUN-69 PAGE 3 1 -! 
INO ODB TO CHAIN TOGETHER 



com^n 



1659 
1660 
1661 
1662 
1663 
16 64 
1665 
166 6 
1667 
1666 
1669 
1670 
1671 
1672 
16 73 
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SPCINT t 



SPCSAV 

IENO OF THE ASSIGNMENT TABLE 
INTNUM==INTTAB-„ 
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777777 777746 



;GENERATE ANY SPECIAL DEVICES CUSTOMER |s SUPPLING 
I WHICH DO NOT USE A CHANNEL SAVE ROUTI'jr and ha;[ 
I NO DEVIC E n ATA BLOCK 

IGENERATE Any SPECIAL DEVICES ;uSTOME IS SUPPLYING 

i WHICH DO NEED A CHANNEL SAVE ROUTINE 

I AND HAVE MULTIPLE DEVICE DATA BLOCKS^ MEANS NCNE) 



l-LENGTH OF INTERRUPT CHANNEL ASSIGNMENT TABLE 



P01447 



IFLE ,-SYSEND.<LOC SYSENO*l> 

I SET LOC UP TO SYSEND+1, UNLESS ONCE ONI Y CODE 
I IS BIGGER 
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1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1632 
1683 
1681 
1685 



1686 
1687 
1688 

1689 

1690 

m 
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(SYSTEM CONSTATNS AND PARAMETERS 

INTERN CNFTBL'CNFMXL. CONFIG, SYSTAP. SYSDAT 



001447 



001447 
001450 
001451 
001452 
001454 



322466 
202110 
502112 
301004 



001454 331326 

001455 344000 
001456 



433500 
541500 
026542 

331000 



326554 

000000 



CNFTBL! 



CONFIG: SYSNAM 
YSTEM. IN ASCII 



LOC CONFIG+5 

SYSDAT: SYSDAT t 

LOC SYSDAT+2 
SYSTAP: SYSDEV t 



IFIRST LOCATION 0F MONITOR DATA STOWAGE 
I RETURNED BF GETTAB UUOITMESE LOCATIONS 
I NOT CLEARED BY SYSINI ) 
I CNFTBL IS GETTAB TA8LE 1KRH OF AC) 
I OCTAL NOS, IN () CORRESPOND TO GETTAB ■ j U 
ASCI? \4S47 DEC PDP-10 #2\» ;(0-4)NA"E OF S 



IALWAYS LEAVE 5 W0R0S124 CHARS) 

I SO GETTAB UUO WILL BE CONSTANT 

ASCI? /6-3-69/t ; < 5 , 6 ) GE NER ATE SYSTEM DATE 

IALWAYS LEAVE 2 WORDS SO GETTAB CONSTANT 

SIXBIT "nS<"' i(7)NA«E OF SYSTEM DEVICr. IN S 



701456 446353 000000 IXBIT 



noMMrN 


165 3 


16-54 


lfi°5 


1696 


1 6 9 7 


1.698 


1699 


1.700 


1771 


1772 


1773 


17514 


17?5 


1776 


1777 


1778 


1709 



- MONITOR COMMON TA' 

PA«T 3 common. v a: - 
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701457 3000*0 

7014613 707070 

101461 700070 

701462 436471 



£"00000 

007070 
007070 
000070 



:uncATiO"S SFTl'=> -Y ONCE ONLY OPERATOR DIALOGUE AND NEVER RESET ON RESTARTS 

INTERN TlME,THSDAT,SvSSia,DEVOPF),CEVLST,SEGPTH,TWOREG,STATES 
!Nt e om SERIAL 
rxTfRM PiTCH 



TI«E: 
thsDaT: 
SYSSI2 ! 
n EVOPH : 



rxp patch 

SIXflIT /CTY/ 



001463 000070 000000 QEVLST; XKO 



J(10)TIME OF DAY IN JIFFIES (60TH OH 50TmS OF A SEC.) 
; (U>TOO*Y'S DATE((Y-1961)»12*(M-l))«31t(D-l) 

i(12)size of monitortf irst loc not u^ed) 

m13jsixhit physical name of operators console 

i (if this location contains 0. none has 

: been oesignateo) 

ipublic logical name "opr" will re this nevice 

salso unexplained monito d error message will be typed 

;on tty opr 

:(14)LH CONTAINS address OF FIRST DEVICE data BLOCK 

IONCE ONLY CODE LINKS DEVICE DATA BLOCKS 



COMMON 
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1710 


001464 


777744 


000034 


1711 








1712 








1713 


001465 


000000 


000000 


1714 








1715 








1716 








1717 






000000 


1718 




400000 


000000 


1719 




600000 


000000 


1720 




700000 


000000 


1721 




740000 


000000 


1722 




760000 


000000 


1723 




770000 


000000 


1724 








1725 


001466 


770000 


000000 


1726 








1727 








1728 








1729 








1730 


001467 


000000 


000002 


1731 






020000 



SEGPTR! XWD -SEGN.JOBN 



TWOREGt 

E 



ZZ = = 

IFG DSKN,<Z2==ZZ!130> 

IFG SYS50N,<Z2=s2Z!lBl> 



>(15)A0BJN POINTER TO FIRST HIGH SEG IN jBTXXX TABLEb 

I LH«-NO. OF HIGH SEGS, PH=FIRST HIGH SEG NO, 

l(16)FUAG TO INDICATE WHETHER BOTH HAROWsRE AND SOFTWAR 

I HAVE 2 RELOC REG CAPACITY 

I NON-ZERO IF BOTH DO, IF EITHER OR BOTH DO NOT 

I SET BY ONCE ONLY CODE 



II IF DISK SYSTEMUNALOGOUS TO FTDISK) 

II IF SWAPPING SYSTEMUNALOGOUS TO FTSWAP) 

IFG L0GINN.<HZ==ZZ!1?2> II IF LOGIN ( ANALOGOUS TO FTLOGIN! 

IFN FTTTYSER,<ZZ==ZZ!1P3> 11 IF FULL DUPLEX SOFTWARE 

IFN FTPRV«<ZZ==Z2!1B4> 11 IF PRIVILEGE FEATURE INCLUDED 

IFN FT2RELi<ZZ==ZZ:iP5> II IF REENTRANT SOFTWARE 

IFE JIFSEC-tD50,<ZZs = ZZUB6> il IF 50 CYCLE MACHINE, OF 60 CYCLE 

statesi exp zz | (17ibits which define type of system in lh 

i rh patched by monitor command to 
i indicate operational state of system 
(insert new locations of interest setup 

i by once only code here 
serial! exp aprsn 1(20) serial number of apr 
cnfmxl==<.-cnftbl-i>626 imax, entry in cnftbl for gettab uuo 
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1732 
1773 
1734 
1735 
1736 
1737 
1738 
1739 
1?40 
1741 
1742 
17 4 3 
17 4 4 
1745 
1746 
17 4 7 
174B 
174 9 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
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IFG OSKN,< 

INTERN 0DPTBU'0DPrtXL,SWPHGH,K4SWAP,PR0T,PR0Ta 



001470 



IFG SYS50N,< 
IFLE SYS50N,< 

ODPTBLi 



FXTERN ICPPOT, ICPRTl 

XP ICPROT.0 
XP ICPRTl,? 



iTHESE ARE DEFINED ONLV IN 
I A SWAPPING SYSTEM> 
I I F NON-SWAPPING, DECLARE 
I INTERNAL IN COMMON> 



001470 000000 000000 SWPHGHI 

001471 0000550 000000 K4SWAPS 

001472 000000 000000 PROT: EXP ICPROT 

001473 000000 000000 PROT0S EXP ICPRTl 



IFIRST LOC IN MONITOR DATA AREA FOR DISK 

i LOCATION W"ICH ARE NOT SET TO Z WHEN SYSTEM 

I STARTED, OOPTBL IS GETTAB UUO TABLE 15 

1(0) HIGHEST LOGICAL BLOCK # IN THE SWAPPING 

I SPACE ON THE DISK (SET BY SWPINI) 

l(l)K OF DISK WORDS SET ASIDE FOR SWAPPING 

I ASSIGNED AT ONCE ONL v REFRESH TIME 

1(2) IN-CORE PROTECT TIME PARAMETER USED TO 

I MULTIPLY TIMES (K-D OF COPE 

1(3) IN-CORE PROTECT TIME PARAMETER ADDED TO 

I ABOVE REULT TO COMPLETE COMPUTATION 



IINSERT NEW LOCATIONS OF INTEREST SETUP 

J BY ONCE ONLY CODE HERE FOR DISK SYSTEMS 

003000 0DPMXL==<.-0DPTBL-1>B26 1MAX. ENTRY IN onpTBL FOR GETTAB UUO 
> 
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1759 








1760 








1761 








1762 








1763 








1764 


001474 


001474 


000000 


1765 








1766 








1767 








1768 








1769 


001475 


360601 


001476 


1770 


001476 


360004 


520316 


1771 


001477 


330004 


321302 


1772 


001500 


360004 


660322 


1773 


001501 


350004 


064122 


1774 


001502 


360004 


660331 


1775 


001503 


350004 


525316 


1776 


001504 


360004 


525314 


1777 


001505 


360004 


065307 


1778 


001506 


350005 


161320 


1779 


001507 


360004 


760724 


1780 


001510 


350004 


723726 


1781 


001511 


360004 


221303 


1782 


001512 


000023 


615000 



JMORE DATA LOCATIONS SETUP AT ASSEMBLY TIME OR ONCE ONLY TIME 
! BUT NOT OF INTEREST TO USER PROGRAMS 

INTERN XJBPFI.PMONTB.MONTAP.MIDNIT 

XJBPFIi XWD .,0 ILH FILLED IN WITH EXTERNAL JOBPFI (SEE J08DAT) 

; JOBPFI==HIGHEST LOC, IN USER JOB DATA AREA 
I PROTECTED FROM 10 
iMONTH TABLE FOR DAYTIME COMMAND PRINTING 

PMONTBl POINT 6 , MONTAB ( TAC ) , 5 JPOINTER TO NUMBER OF DAYS [WMONTH 

MONTABl EXP tD30P5*»JAN 

EXP tD27B5*»FE9 

EXP tD30g5+"MAR 

EXP t029B5+"APR 

EXP tQ30B5*"MAY 

EXP ♦D29B5*"JUN 

EXP to30B5*»jUL 

EXP to30B5*»AUG 

EXP tD29B5+"SEP 

EXP tD30B5*»OCT 

EXP tD29B5*»N0V 

EXP »D30B5*"DEC 

MIDNITl EXP tD60*tD60*tD24"JIFSEC (NO OF JIFFIES TILL MIDNIGHT 
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1783 

1784 

1785 

17 8 6 

178 7 

1788 

1789 

1790 

1791 

179? 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1304 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1872 

1833 

1834 

1835 
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'.tin P M " n CEOURr WHEN SHUTTING DOWN SYSTEM 
.BECAUSE or o AT0STRq3h , Q FAIIURE QR ANV 0THER „ F .<•-<, 
JWRITE OUT DIRECTORIES ST j LL , k, C q Re: , n . °l , ER REAS0N 
.•TRANSFER HERE FROM l0 C 147 ' * 

•OPERA?OR E SHOULD- E C " ASHFD ™° R 0N ^ "" F0R LATER DEBUGGING UNDER TIHE SHARING 

I 1. PUSH STOP AND HOLD IT nrjWN 

I 2. PUSH CONTINUEUPR PI jv progress SHOULD COME ON) 

' 3. LETUP ON STOP 5 PUTS MArH " r INT ° EXEC M ° nE AN0 ST0RES R C OC CRASH 

4. SET ADDRESS SWITCHES TO 147 

5. PUSH START(DO NOT PUSH ID RESET AS IT W , LL CLEAR DEVICES, 



Ivlln* APRSTS ' PISTS ' SY STOP,CRASHX.SWTSTS,TTYSTS,PTRSTS TMfRT 
e"te"ns;spd"' 0LSSTS,DTSSTS,CRST? ' L ' PTSTS;PLTST ^^^^ 



TS 

s.dskdti 



001513 
001514 
001515 
001516 
001517 
001520 

001521 
001522 
001523 

001524 

001525 

001526 

001527 

001530 

001531 

001532 

001533 

001534 

001535 

001536 

001537 

001540 

001541 

001542 

001543 

001544 



202740 
200740 
312740 
254200 
254000 
254000 



000017 
001520 
000147 
001522 
001522 
001521 



EXTERN CRSHAC 



CRASHX! 



202740 000017 
201740 000000 
251740 000016 



MOVE" 17.CRSHAC+17 
"OVE 17,TST|_oc 
CAME 17.SYSCRS 
HALT SYSTOP+1 
JRST SYST0P*1 
TSTLOC: JRST SYSTOP 

SYSTOP: MOVEM 17.CRSHAC+17 
"OVEI 17,CRSH,»c 
°LT 17,CRSHAC«16 



IDEFINED IN SYSINI TO BE 143 RFSTaRT CODF 
IS" MONITOR CANNOT BE RESTARTED AT 143 ArTER 
J9EING STARTED AT 147. 

ISAVE AC17 

I IS LOC 147 WIPED OUT? 

IYFS - LET OPERATOR DECIDE HHAT TO DO 

(NO - GO SAVE AC'S 4 DEVICE STATES 



ISAVE ALL ACS 

ISOURCE==0, OESTINATIOM==CRSHAC 

ISO D D t CAN LOOK AT SAVED CRASH LATER 



700240 


001524 


APRSTS 


CON] APR, , 


700640 


001525 


PISTSI 


CON I PI,, 


700040 


001526 


SWTSTS 


DATAI APR,, 


712240 


001527 


TTYSTSl 


CONI TTY,, 


710640 


301530 


PTRSTSl 


CONI PTR, , 


710240 


301531 


PTPSTS; 


CON] PTP,, 


724240 


001532 


DLSSTS: 


CONI DLS,. 


721640 


001533 


DTSSTS: 


CONI OTS, , 


715240 


001534 


CRSTS: 


row I CR. , 


712640 


001535 


LPTSTS: 


COW] LPT, , 


714240 


001536 


PLTSTS! 


CONI PLT,, 


734640 


001537 


TMSSTSs 


CONI TMS, . 


734240 


001540 


TMCSTS: 


CONJ TMC. 


717240 


001541 


DSKSTS: 


CONI RSK, , 


717040 


001542 


DSKOT] : 


DATAI nSK, , 


700200 


633553 




CONO APR.APRRSr 


201140 


000000 




MOVEI POP,SY':pnL 
IFG DSKN,< 
EXTERN DSKSTP 



ISTORE APR STATUS HERE 
ISTORE PI STATUS HERE 



IRESET SYSTEM 

iSETUP POP TO SPARE AREA 



COMMON 



1836 
1837 
1838 
1839 
1840 
1841 
1842 
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001545 260140 000000 

001546 254200 137400 



PUSHJ 
"ALT 

iERROR RECOVERY 



PDP,DSKSTP> 
137400 



1STOP AT TENDMPtREADY TO READ IN ANYTHING) 
TRY TO START NULL JOB 



001547 201200 000000 NULJHl: MOVEI ITEMi0 
001550 254000 000000 JRST NULJOB 



;SET JOB NUMRER TO 
(GO RESTORE MULL JOB 
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1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

.1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

18 7 7 

18 7 8 

1879 

1 8 « 

1881 

1882 

1883 

18 '3 4 

18*5 

1886 

188 7 

1888 

18S9 

18<>0 

1891 

1B»2 

18 "3 

18')4 

18"5 



001551 
001552 
001552 
001553 
001554 
001554 
001554 

5501555 
001556 
0101557 
001560 
001561 
001562 



001563 
0101564 
001565 
0101566 
001567 

001570 

001571 

001572 

001573 

001574 



350003 000000 



354003 000000 
202006 000002 



263140 000000 



350003 
262140 
263140 
350003 
262140 
263140 



777777 
000001 
000000 
777777 
000004 

000000 



270400 000014 

000400 000000 

360606 000001 

140606 000001 

250504 000331 

220606 000001 

300606 000001 

410206 000007 

3410514 000421 

440100 000250 



000377 
000012 

001575 001004 000725 

001576 111004 000725 

377000 



jcommon subroutine returns 

intern cpoi>j,cpopj1,op9pj,tpopj,tpopj1,cpopj2,ipopj1,ipopj 
intern cijx:ti.cuxit,'xit 

INTERN FTT::mE.FTSWAP,FTSLEEP,FTkCTiFT2REL.FTPRV 



CP0PJ2! AOS 
CUXITll 
CPOPJ1I AOSA 
OPORj: MOVE* 
U X I T ! 
CUXIt: 
CPOPj: POPJ 



(PHP) (DOUBLE SKIP SUBROUTINE RETURN 

IOLO SKIP RETURN FOR UUOS 
(POP) (SKIP SUBROUTINE RETURN 

lOS.nEVIOS(DEVDAT) (DEPOSIT 10 STATUS WORD IN DOB 



POP 



IOLO RETURN FOR UUOS 



IRESTQRE TAC THEN SKIP RETURN 

(RESTORE TAC 

IAND RETURN 

ISET FOR SKIP RETURN 

(RESTORE ITEM (USUALLY JOB OR HIGH SEG NUMBER) 



TPOPJK AOS -KPDP) 
TPoPj: POP PDF 1 , TAC 

POPJ PDF, 
IPOPjli AOS -KPnP) 
IPOPji POP PDP.ITEM 

POPJ POP, 

) SYSTEM BYTE POINTERS 

INTERN PUUCAC.PIOMO0.PJ0BNiPUNIT,PJBSTS,PDVTIM,PDVCNT,PCORSZ,CORFP 
INTERN IADFTR 

PUUOACi POINT 4.1U0.12 (UUO AC FIELD 

PIOMOOl POINT 4,I0S,35 (MODE BITS 

PJOBN! POINT 6.CEVCHR(DEV0AT),5 (DEVICE JOB ASSIGNMENT 

PUNIT: POINT 6,0EVCHR(DEvnAT) ,23 (DEVICE UNIT NO, 

PJBSTSl POINT JWSI?,JBTSTS(ITEM) ,JWPOS (JO? WAIT STATE(QUEUE) CODE 

t IN JOB STATUS WORD 
POVTIM: POINT 6,DEVCHR(DEvnAT),l7 (TIME IN SECONDS BEFORE DEVICE 

I IS SAID TO BE HUNG 

PDVCNTs POINT 6,0EVCHR(DEVPAT) , 11 (COUNTER DOWN EACH SECOND, 

II TO TRANSITION MEANS HUNG DEVICE 
IAPPTR: POINT 2.DEVI AD(DEVOAT) , 2 (COUNT Qf NO, OF USER CHANNELS IvITEO 

I ON THIS DEVICEtDECTAPE ONLY) 
PCORS*! POINT 8.JBTADR! |T£M),7 I3YTE POINTER TO LOW OR HIGH SEG CORE SUE-1 



COREP! POINT 



l.CORTAB 



II BIT POINTER TO CORE ALLOCATION TABLE 



IFG SYS50N.< (SWAPPING SYSTEM? 

INTERN IMGIN,IMG0UT,IMGINT,0IITMSK,INMSK,1NLEFT 

INMSK=00?377 (RH "ASK TO IMGIN 

INLE' r T = 12 (NO. OF BITS TO SHIFT TO LEFT JUSTIFY IN RH 

IMGINI POINT 3, JBTSWPl ITEM), 35 IBYTE POINTER FOR * IK BLOCKS OF CORE 

IWHEN JOB OR HIGH SEG NEXT SWAPPED IN 
INON-EERO ONLY WHEN SWAPPED OUT 

IMGOUTl POINT 8,jBTSWP( ITEM) ,26 IBYTE POINTER FOR * IK BLOCK OF DISK 

(WHEN JOB OR HIGH SEG HAS IMAGE ON DISK 
!?ERO MEANS NO DISK SPACE ALLOCATED 
OUTMSK=377000 | RH MASK TO IMGOUT. USED TO TEST FOR 
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1896 I (IE NO DISK SPACE) 

1897 001577 001006 000725 IMGINTt POINT 8 » JBTSWP (DEVOAT ) , 35 (POINTER TO INCORE IMAGE 

1898 > 



COMMON 



^ , J o ^^?^ A I A T ^: s ^y°^ GlJ ^ T, ^ % ] :r nN - v43? ^- v36 "■•«* «-^-<-> 9 p ^ *? 



1899 
1 9?I0 

19*1 

19*2 

19 73 

19*4 

19*5 001600 000001 

19*6 001601 0000r*- 

19**7 

19i*8 001602 0000i»;> 

191*9 



001600 



000001 
000002 



000004 



iSPECUL PROJECT-PROGRAMMER \os, 

IFC nSK,\,< , |SK SYSTEM? 

INTERN CUSPPP.SYSPP, ^UMPPP.HFLPPP 



CUSPPP : 
SYSPP: 

nuMPPP- 
helpppi 

FAQY 
> 



xwn 



l.i 

1.2 

?,4 



iCUSo ERE DIRECTORY, MAKE SEPARATE TAG FROM 

I MFO(SYSPP) 
:TME MASTER FILE DIRECTORY PROJECT PROGRAMMER NO. 
I THE FAILSAFE PROJ.PROG MO. (CAN READ OR WRITE ANYTHING) 
iSYSTAT ANO HELP PRO JECT , PROGR A MMER NOS IF JOB NaT LOGGED IlMALH 
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1910 


1911 


1912 


1913 


1914 


1915 


1916 


1917 


1918 


1919 


19?0 


1921 


1922 


1923 


1924 


1925 


1926 


1927 


1928 


1929 


1930 


1931 


1932 


1933 


1934 


1935 


1936 


1937 


1938 


1939 


19 4 


1941 


1942 


1943 


1944 


1945 


1946 
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000010 
00PI025 



iDFFINE PI CHANNEL SAVE AND PESTORE ROUTINES IF A DEVICE IS ON THE CHANNEL 



HIGHAC==10 
PDL==25 



(HIGHEST AC SAVE ON A PI INTERRUPT 
(LENGTH OF INTERRUPT PI PUSH DOWN LIST 



DEFINE CHAN (PIX 

XLIST 

INTERN SAV'PI tRET'PI ,CH>PI 
CH'PM 7 SPC STORED HERE BY JSR ON INTERRUPT TO CHANNEL P! 

JEN »CH'PI SLAST INSTRUCTION ON CONSO OEV. CHAIN 

;HFRF FROM AN INTERRUPT ROUTINE WHICH HAS FOUND ITS DEVICE NEEDS SERVICE 

iSAVF ACS THRU HIG"AC. CALLED °Y JSR, SETS UP POP TO PUSH OOWN LIST FOR THIS PI 



SAV'PI ! 



!» ICALLED BY JSR 

MOVEM HIGHAC, SAVAC'PI*HIOHAC iSAVE AC HIGHAC 

MOVEI HIGHAC, SAVAC'P! I SETUP TO SAVE THRU HIGHAC-I 

= LT HIGHAC, SAVAC'PI+HIGHAC-1 (SAVE ACS 

MOVE PPP.SAVAC'PI +HIGHAC*! (SETUP PUSH DOWN POINTER 



JRST PSAV'PI 



(RETURN TO CALLER AND PROCESS INTERRUPT 



IHERE FROM INTERRUPT ROUTINE WHEN IT HAS FINISHED SERVICING INTERRUPT 
IRFSTORE ACS AND DISMISS INTERRUPT 
iUSUALLY TRANSFERRED TO BY POPJ PDF, 



RET'PlI MOVSI HIGHAC, SAVAC'P! 
s>LT HIGHAC, HIGHAC 



(RESTORE ACS THRU HIGHAC 

%1f .- H> «■*""• > 



JE N s! C h'PI ^,,-w ,(-& '■«■*■ (DISMISS INTERRUPT ON THIS PI CHANNEL 



/ , BLOCK I- 
XWD -"P"m.*l< ,+1 



CH'PI 'PD1! 



EXP RET'PI 



BLOCK PDL-1 
L 1ST 



THRU HIGHAC 
( INITIAL PUSH DOWN POINTER 
(FIRST WORD ON LIST, 

I POPJ WILL RETURN TO DISMISS INTERRUPT 
IPUSHDOWN LIST SPACE 



COMMON 
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19 4 7 
19^8 
19 4 9 
1950 
19 51 
19 5 2 
19 = 3 
195 4 
1955 
1956 
1957 
1958 
1959 
1963 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1 968 
19 69 
19 7 3 
1971 
1972 
1973 



sgenehatf the channel save routine only for pi which need themiasgsav *a~ro used) 
ifn used1.<cha\i 1> 

IFN USF02,<CHA'>i ?> 

IF" USE03p<CHAN 3>» 

IFN USED4,<CUAN ">t 

IFN USED?.<C"AN 5>< 

!FN l!SED6,<CHAN 6> 

IFN USFD7,<CUAN 7> 
iGENERATF NULL CHAMNEL SAVE ROUTINES FOR THOSE CHANNEL NOT USED 

DEFINE NULL (PIX 

VLIS T 

INTERN CH'Pl 
CH'PI : I' ' 

JEN <=CH'PI 

L I S T '- ' 



i J <r « f re- r A/ C 



IFE IJSE0l.<NULL 1>» 

IFE USE02,<NULL ?>' 

IFF USE03.<NULL 3> 

IFE USED4,<NULL 4> 

IFF USE05,<NULL 5> 

IFF USF06i<NULL 6>t 

IFE USE07,<NULL 7>t 
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1974 








1975 








1976 








1977 








'.978 








1979 








1980 








1981 








1982 








1993 








1984 


002011 


000000 


000000 


1985 


002012 


250040 


002011 


1986 








1987 


002013 


607040 


004000 


1988 


002014 


254000 


002026 


1989 


002015 


500040 


000060 


1990 


002016 


603040 


677777 


1991 


002017 


254000 


002025 


1992 


002020 


200040 


000060 


1993 


002021 


270040 


000151 


1994 


002022 


200041 


000000 


1995 


002023 


250040 


002011 


1996 


002024 


254520 


002011 


1997 








1998 


002025 


505040 


014000 


1999 








2000 


002026 


202040 


002031 


2001 


002027 


476000 


000040 


2002 








2003 


002030 


334040 


002011 



IHERE ON TRAPS TO LOC 60/61 - UNI IMPLEMENTED I NSTRUCT I ONS < POP-10 ONLY) 

I0PCODE AND EFFECTIVE ADDRESS STORED IN SIXTY AND 61 EXECUTEO(JSP UU02) 

IOP CODE 1001UJEN) IS USED T" DISMISS USER MODE INTERRUPTS FDR REAL TJME OPERATION 

iUSED IN CONJUNCTION WITH TRPSET UUOWHIC" IS SOON TO BE REPLACED 

iWITH SOME KNAVE-PROOF REAL TIME UUOS, THIS CODE IS HERE ONLY 

[BECAUSE MANUAL DESCRIBES TRPSET AND TRPJEN UUOS. 

iTRPjEN MAS SEEN REPLACED WITH OPCODE 100IUJEN), 

SCALL ! UGEN U IWHERE U CONTAINS PC STORED BY INTERRUPT JSR 



INTERN UU02 

UU02: 

EXCH TAC.UU02 
IFN FTTRPSET,< 

TLNN TAC.UIOMOD 

JRST UU0E«2 

HLL TAC, SIXTY 

TLNE TAC, 677777 

JRST UU0ER1 

MOVE TAC, SIXTY 
ADD TAC.JOBADR 
MOVE TAC, (TAC) 
EXCH TAC.UU02 
JEN SUU02 

UUOERll HRLI TAC.USRMODIUIOMOO 
> 

UU0ER2! MOVEM TAC,UUO0 
SETOM FORTY 

SKIPA TAC.UU02 



IUSEP PC STORE HERE BY JSR 
IGET USER PC. SAVE TAC 

IUSER 10 MODE ON? 

INO, TREAT AS AN ILLEGAL INSTRUCTION AND PRINT MESS, 

IYES, GET UNIMPLEMENTED OPCODE WHICH TRAPPED 

IIS IT OPCODE 100<UJEN!7 

INO, TREAT AS ILLEGAL INSTRUCTION 

IYES, GET EFFECTIVE ADDRESS 
IAOD RELOCATION FOR CURRENT JOB 
IGET PC STORED BY INTERRUPT JSR 
IRESTORE TAC, AND STORE D C 
•DISMISS INTERRUPT 

ISET USER MODE AND USER 10 MODE BACK ON 

ISTORE PC AS IF AN ILLEGAL INSTR. HAD OCCURRED 

IMAKE IT LOOK LIKE AN ILLEGAL INSTRUCTION 

I TRAPPED TO 40 

IRETORE TAC AND FALL INTO REGULAR UUO HAVDLE" 
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2004 

2005 

2006 

2007 

2008 

2009 

201 

2011 

2012 

2013 

201'! 

2 01.5 

5016 

2017 

201 B 

2019 

2020 

2021 

2022 

2323 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

20 33 

2034 

2335 

2 336 

2 03 7 

2038 

2Z39 

2040 

2041 

2042 
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2 31 
002032 
002033 
002034 
002035 
002036 



002037 265246 



;herf on tb a d S to exfc Lnc 4 ~ /n . 0PcnDF . s £,,40-77(0-77 ON POP-6) 

INTERN UUO0 

rxTroiv UUOUSO.JUOSVl.ERRnf) 



000000 

2 2 7 4 
200740 
607740 

254000 
336740 



000000 
000153 
002031 
010000 
000000 
000151 
000000 



UUO0: 



? 

MOVE 

move 

TLN'N 

JRST 



17.USRSAV 
17,[JUO0 
17,USRM0D 
U'JOSYl 
SKIPN' 17.J0BA0R 
JSP TAT, ERROR 



'02040 254000 000000 



IFE POP10N.< 

FXCH TAC, FORTY 
TLNN TAC.74000J! 
TLNN TAC, 07700'"' 
JRST UUOSYS 
*OVEM TAC. 40(17) 
"RR2 TAC, 41(17) 
JUMpr TAC. UUOSYS 
"LI. TAC.UUOZ 
"CVE! 17, (TAC) 
r AM L 17,'lSRRFL 
JRST UUOSY0 
U «°I TAC.KT4C) 
FXCH TAC, UUO? 

ADO 17.J0BAQR 
"OVf TAC. (17) 
MOVE TAC, FORTY 
"OVE 17.1JSRSAV 
JRST 2.SUUO0 

UUOSYtf: MOVE 17.J0BADR 

UUOSYS: cru TAC, FORTY 
> 

JRST UUOUSR 



IJSR HFRE from Lnc 41 

ISAVE 17 

IGET PROCESSOR FLAGS 

I IS UUO FROM. MONITOR? 

IYES. PO NOT S»VE ACS 

I IS THERE 4 JOE OATA AREA? 

(NO, MUST BE UUO DURING NULL JOB 

I PRINT ERROR IN MONITOR 

IFOR PDP-6 OPCODES 1-37 

ISAVE TAC, PICK UP UUO 

MS THIS SYSTEM UUO? 

INO, IS IT l UUO? 

IYES 

ISTORE UUO I* USER'S 40 

IPIC* UP AOR OF USER'S JSR 

HE ADDRESS:*, ILLEGAL USFR UUO 

JUSEP PQ FLAGS(RESTOREO ON RETURN) 

II' "OW HAS REL.4DR+1 OF USER JSR 

MS EFFECTIVE ADDRESS IN BOUNDS? 

IERRCR, JSR FFF. ADDR. OUTSIDE USER AREA 

IYES. INCREMENT PC, 

I SET UP RETURN TO USER IN UUO0 

I PICKUP USERS FLAGS. PC 

IMAKF REL. air, into ARS, ADR. 

ISTORE FLAGS AND PC LIKE JSR 

IRESTORE T*C 

IRESTORE 17 

IRETURM TO UPERiRESTORING FLAGS) 

iSFTUP 17 FOR LOW SEGMENT RELOCATION 
IRESTORE USERS AC(TAC) AND USER'S UUO(FOQTY) 



IGO SAVE USER'S ACS IN REL, LOC, 
I A ND DISPATCH ON UUO 



3-17 
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2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 



IGFNFRATF EXTERNAL GLOBALS T n CAUSE LOADING OF PROPER ROUT, FROM MONITOR LIBRARY TAPE 
i IF THERF IS ONE 

(ALWAYS LOAD CLOCKl.COMCON.COREl.ERRCON.JOBDAT, ONCE, PATCH. SYSMAK.UUOCON 
EXTERNAL CLOCKl,COMcnN,COHEl,ERRC ON, OAT JOB, ONCE, PATCH, SYSMAK.UUOCON 
(LOAD DOT 

IFG ODTN,<EXTERN DDTX> 

IFE ODTN,<XP DDTENO,? IQNCF REFERENCES END OF DDT> 
:LOAD APPROPRIATE SCHEDULER FOR NON-SWAP OR SWAPPING SYSTEMS 

IFG SYS40N,<EXTERN XCKCSS> ICLKCSS 

IFG SYS5PiN,<EXTERN XCKCSW> ISCHFD 

ILOAO EITHER SEGC0N(2REG SOFTWARE) OR NuLSEGtl REG SOFTWARE) 
I UNLESS USER HAS EDITTEO S WITH FT2REL = i" SO ALL PUSHJ'S 
) TO SEGCON(MULSFG) ARE REMOVED 

IFN FT2REL,< 

IFG KT10AN, <EXTERN SEGCON> 



2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2004 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 



000001 

000200 
000400 
004001 
004201 
001003 
431553 

433553 

633553 

010000 
000100 



IFE KT10AN, <EXTFRN MULSFO 



(APR AND PI RITS 

INTERN PION,PI0FF,RFQXLK,PICLK,APRCLR,APRCLE,APRNUL,APRRST,MXM,APRFOV 



CLKBIT==1 

REPEAT 7-CLKCHN,<CLK" IT: 

PION==200 

PIOFF==400 

RE0CLK==1B24+CLK?IT 

PICL<=PION*REOCLK 

APRCLR==1000+APRCHN 

APRCLE = = 431550 + APRCH»' 

APRNUL==433550+APRCHN 

I CL^AR 
APRRST = = APRNUL + 2(W0'> 
\'XM = = 100?!0 
IFG PDP10N,<APRFOV==100 

IFE PD p 10N,<APRFOV==«00 



=CLKB1To2> 

ICONtl Pl.PION TURNS PI SYSTEM ON 

ITURN IT OFF 

(REQUEST INTERRUPT ON LOW PRIORITY CLK CHANNEL 

ITURN ON PI, REQUEST INTERRUPT ON CLK CHAMNEL 

ITURN 4PR CLOCK FLAG OFF 

(CLEAR ALL APR ERROR BITS 

I AND DISABLE FOV AND AR OVF 

IRESET APR FOR NULL JOB 

EVERYTHING BUT DONT 10 RESET 

IRESET APR FOR SYSINKIO RESET TOO) 

INON-EX ME" KAPR STATUS WORD) 

IFLOADTING OVERFLOW CAN RE ENABLED ON PDP10 

I FOR USER TRAPPINO 

IPC CHANGE CANNOT BE ENABLED ON POP-6, BFACUSE 

I IT MAKFS MONITOR TRAP ALSO> 



(MAKE SURE THAT PROPER VERSION OF FEATURE SWITCH FILES WERE USED TO ASSEMBLE 

ITHE REST OF THE MONITOR 

(THE LOADER WILL PRINT MUL. OEF. GLOBAL IF A MISTAKE HAS BEEN MADE 

XP FTDISK.-OSKN' 

XP FTSWAP,-SYS50Nt 

XP FTRCle.-ROlPNt 



000400 



IFG KT10AN,<XP FT2REL.-1> 
IFE O0REN,<COREN=»0256 
XP USRLIM.COREN 



I IF ? RELOC SOFTWARE, THEN FTHREl MUST BE -1 

INO RESTRICTION IF TYPED> 

(DEFINE GLOBAL RESTRICTING SIZE OF CORE FOR ANY 
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?Z96 



single: user 



i ONCE OH' CODE CAN ALTER HIS VALU r 
I (PATCH RH TQPLIM IN SVSIM) 
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2099 


2100 


21*1 


2122 


2103 


21P4 


2105 


2106 


2107 


2108 


2109 


2110 


2111 


2112 


2113 


2114 


2115 


2116 


2117 


2118 


2119 


2120 


2121 


2122 


2123 


2124 


2125 


2126 


2127 


2128 


2129 


2130 


2131 


2132 
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?1i22041 



[SCANNER ENTRY POINTS AND BIT DEFINITIONS 



IFG DLSN,<EXTERN DLSINT> 

IFG CCIN,<EXTERN CCI !NT> 

IFG DCSN,<EXTERN DCS!NT> 

IFG FULLN.<EXTERN SC"SRF> 

IFE ruLLN,<EXTERN SCNSRH> 

IFG PULLN,< 
INTERN L1NTAB 



IDATA LINE SCANNER 

IOA-10 PDP-8 680 

1630 DATA COMMUNICATIONS SYS 

IFULL DUPLEX SOFTWARE ENTRY POINT 
(HALF DUPLEX SOFTWARE ENTRY POINT 



LINTABl 



I LINE CHARACTERISTIC BITS (NOT CLEARED ON SYSTEM STARTUP) 



[TELETYPE LINE CHARACTER I ST I CS ( LH OF LINTAB) 
{USED IN SCNSRF ALSO 



XP PTYLIN. 400000 
XP CTYLIN. 200000 



XP QISLIN, 100000 

XP OSDTLN, 40000 

XP DSCTLN, 

XP HLFDPXi 

XP TTYRMT, 

XP T35i 

XP FULTWX, 



20000 

10000 

4000 

10 

4 



(PSEUDO TTY LINE 
(CONSOLE TTY 

(KEYBOARD DISPLAY 

IDATASET DATA LINE 

IDATASET CONTROL LINE(OC10E) 

IHALF DUPLEX LINE 

IREMOTE TTY 

I TTY HAS HARDWARE TABS 

ISELF-ECHOING LINE 

1USEO IN CCIINT.DCSINTiDLSINT « SCNSRF 



IFG EDITN,< 



IHAS COMMON, MAC BEEN EDITED TO DEFINE TTY LINE CHAR. 

I SO MONGEN TYPE-IN REDUCED? 
!IF NO APR NUMBER. AND THIS IS NOT EDITED FOR THE CUSTOMER. 
! MAKE ALL LINES JUST BE MODEL 33 TELETYPES 

IFE APRSN,<REPEAT TTPLEN.<0>> 



COMMON 



• MONITOR COMMON DAT* ARE* A*J" COVF I GUR A T I ON nEFIMTl' 
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N - V«37 
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2133 








2134 








2135 








2136 


002041 


000010 


000000 


213 7 


002042 


2i pi e i p 


000300 


2133 


002043 


•0 ? i 


000000 


313 9 


002344 


0000^0 


003000 


2 14 IS 








214 1 


002045 


000310 


000000 


2142 


002046 


310 


000000 


214 3 


("02047 


000010 


000000 


2144 


002050 


004010 


000000 


2145 


002051 


040200 


000000 


214 6 


002052 


050000 


000000 


214 7 


002053 


0400O0 


03 


2148 








2149 


002054 


000010 


000000 


2158 


002055 


000010 


000000 


2151 


002056 


000010 


000030 


2152 


002057 


000010 


000000 


2153 


002060 


004000 


000000 


2154 








2155 


002061 


004000 


000300 


2156 


002062 


004000 


000000 


2157 


002063 


004000 


030000 


2158 


002064 


4 


003070 


2159 


002065 


004000 


003300 


2160 


002066 


0040"0 


000000 


2161 


002067 


04 


000030 


2162 


002070 


004000 


000000 


2 163 








216 4 








2165 








2166 








? 1 6 7 








21661 








216?' 








2170 








2171 








2172 








2173 









IFF APRS" -2,< 

:FOLL"wI\'G lINF nF.FiMTlO.NS r cm -jet pd°10 #2 



i T T Y " 

! T T Y 1 

I T T Y 1 

I T T Y 3 



M ' T Y 4 - 6 



v*0 T35.0 

v w D T 3 5 . 

xwn T35i0 

VKD f>,0 
REPEAT 3,< vw: T35.0 

xwO T35.3 

vwn T35.0 

XwO T35.0 

XWO T35tTTYR"T ,3 ITTY7 - REMOTE 35 

XwO nsnTiNi0 ITTY10 

vwn nsnTLN*H.FDPX,3 

xwO nsnTLNi3 ITTY12 
REPEAT 4,< xwO T35,0> 

xwn T35,0 

XWO T35.0 

xwn T35.0 

xwn T35,s« 

xwn TTYRwT.0 
REPEAT 8,<XwO TTYRMT,0> 
VWO TTYR«T,Z 
vwn ttvrmt.p 
xwn tTyR-it,? 
xwn ttyrmi,i' 
xwn TTYR"T,3 
xwn tTyr«t,0 
xwn ttyR"T,0 
xwn ttyrmt.3 
> 

IFE APRSN-'Q40,< 
JTUIS CONFIGURATION FOR OEC SYSTEM NUMBER 40 



ITTY7 - 
ITTY11 



ITTY13-16 
ITTY17 - REMOTF 



REPE4T f 



REPE4T trfl,< 
> 



iMQQr L 33'S LOCALLY 
XWO nSTTLN.Z J0ATASFT> 



CTY ANn PTY SET RY SO.'.SRF 

sENO PRE-EOIteo L ]\!E CHARACTERISTICS 



COMMON 



2174 
2175 
2176 
2177 
2178 
2179 
2190 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 

2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
22513 
2204 
2205 
2206 
2207 



.:S? , 3 TO SoH c M D SN M ?S»c DA . TA T* R 5Jsf7S c »^^ cl, ?S TI S3 5SE I 2i T,OM " v437 MA " n,V36 19!02 4 - JUN " 69 PAGE 5 " 



002074 



000404 
000001 

00000?: 

000004 
000010 
002010 
001010 

000000 



IFE F.DITM.< 



IMONGEN DIALOG DEFINE TTY CONFIG? 



DEFINE GENLIN (LINK 

IFNDEF DSD 1 LIN,<DSO'LIN=0> (DATA SET? 

IFNDEF TAB'LIN,<TAB'LINi0> (HARDWARE TARS? 

IFMDEF RMT'LIN,<RMT'LIN=0> IREMOTE? 

IFNDEF HLF'LIN,<4LF'LIN=0> (HALF OUPLEX SCANNFR? 

XWD DSD'LlN»DS0TLN*TAB , lIN»T35*RMT , LIN«TTYRMT + HLr'| ]N«HLFDPX,0 



REPEAT HGHLIN*1.<LINE*.-LINTAB 
GENLIN \LINE> 



(DEFINE LINE NUMBER 



LOC LINTAB*TTP L EN IMAKE SURE ENOUGH SPACE FOR CTYtPTY'S 
!END OF FULL DUPLEX CONDITIONAL 



INTERN FSNCHN.SCNON.SCNOFF 



FSNCHN==SCNCHN»101 

SCNBIT==1 

REPEAT 7-SCNCHN><SCNRIT==SCNBIT.2> 
SCNBIT==SCNBIT»2 
SCNBIT==SCNBI T«2 
SCNBIT==SCNB!T«2 

SCNON==2000+SCNBIT 

SCNOFF==1000+SCNB!T 

IFG TABSN,<TTMODL=-l> 

IFE TABSN,<TTMCIDL»0> 
XP SCNNUM.HGHLIN+1 
) 



ICHANNEL ASSIGN. FOR FULL DUPLEX SCN, 



(CONO Pi, TURNS SCANNER PI CHANNEL ON 

ICONO PI, TURNS SCANNER P[ CHANNEL OFF 
IHAROWARO TABS 

INO. OF SCANNER LINES (USED BY ONCE FOR PRINTING CONFIG 



COP!"?N - 
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?2?8 

2210 

2 21 1 
7212 
?2'L3 
2 214 
221.5 
22-6 
2 2 ". 7 
?2". 8 
2219 
2220 
2221 
2 2 2 2 
'223 
22 2 4 
2 2 2 5 
2226 
2 2 2 7 
2226 
22'9 
2 2! 2 
;• ? 1 1 



7 7 7 7 7 7 



777602 

000042 

013043 

000041 
00 4 4 



1MAGTAPE ENTBY POINT AND BIT DEFINITIONS 

I FT, MTAN,<ExTE3N MTaSRX> 
TFC "TCN^EXTE^N «T(;«R*> 



|TM1' ENTRY POIN T 

iPOP-6 MAGTAPES ENTRY POINT 



IFG l*TAN,< 

I N TERN MTAL.0Ct u Tl.0Cl,MT8?TH,MTFLAGiM!'T<!|? 
mmTSI2==-mTS!Z 



"TALnC = = 40*?»MTQ'"HN 
MTL0C1==«TAL"C+1 
^TgoTH==MTAC^N«10tMTDCHN 
MTF_AG = = 430 + MTACHN»1'" 



iBLKI/BLKO LOCATION 
;NEXT LOCATION 
iBOTH PI CHANNELS 



IFG MTCN,< 

INTERN OCLO;,OCLOCl,1CON,.DCDFF,DCIN,ncrUT 

OCLOC==40+2»nCTCHN ;EVEN DC PI CHANNEL LOC 

nCLOCl = = ^CLO<-*l iNEXT LOCATION 

HCRIT==1 

REPEAT 7-DCTCHN,<DCBIT==ncBIT»2> 

TCON==2000*DC8IT ;TURN DC PI CHANNEL 

"COrF==l?00*TCRIT ;TURN nc PI 

2CIfJ = = 401.a*D'"Tr P (\ ; SET DC FOR 

OCHJT = = 3410*?CTCHN !SET OC FOR OUTPUT 



ON 
CHANNEL OFF 
INPUT 



COMMON 



2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 

2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
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000001 



IDECTAPE ENTRY POINT AON BIT DEFINITIONS 
SAVN==1 



000044 
000045 
000024 
300224 



IFG DTAN,<EXTERN DTASRN> 

IFG DTCN,< 

IFG SAVN,<EXTERN DTCSRN> 

!FE SAVN,<EXTERN DTCSRO> 



(WE ONLY SUPPORT NEW FORMAT NOW 
1MONGEN NO LONGER ASKS QUESTION, 

ITD10 WITH NEW FORMAT 

(556 WITH NEW FORMAT 
1556 WITH OLD roPMAT 



IFG DTAN,< IDEFINE SYMBOLS IF PDP-10 DECTAPES ( TO10 ) 
INTERN DTAL0C.0TALC2,DTB0TH,DTTURN 

DTALOC==40+2»DTDCHN IBLKI/BLKO LOCATION 

DTALC2==0TAL0C*1 iNEXT LOCATION 

DTBOTH==DTDCHN»10+DTACHN 

DTTURN==300200+DTBOTH 

IFG DTCN,< IDEFINE SYMBOLS IF POP-6 DECTAPES ( 556 I 
INTERN OCLOC.DCLOCl.nCON.DCOFF.DCIN.DCOUT 



(EVEN OC PI CHANNEL LOC 
(NEXT LOCATION 



DCLOC=s40*2»DCTCHN 

nCLOCls=nCLOC*l 

DCBIT=»1 

REPEAT 7-DCTCHN,<DCBIT*=0CBlT»2> 

nCON==2000+DCBIT (TURN DC PI CHANNEL ON 

DCOFF=«1000*ncBIT (TURN OC PI CHANNEL OFF 

DCIN==4010+DCTCHN (SET DC FOR INPUT 

OCOUT==3410*DCTCHN (SET DC FOR OUTPUT 

> 

IDEFINE SAVE MODE AND EXTENSION FOR OLD OR NEW FORMAT 



634166 



INTERN SAVOMP 
IFE SAVN,< 

SAVDMP=r<SIXRIT / DMP/> 

IFN SAVN,< 

SAVDMP==<S1XBIT / SAV/> 



(EXTENSION FOR SAVED FlL r S == "DMP" 
(EXTENSION FOR SAVED FILES *= "SAV" 



- MCMT1R COMMON DATA AREA ANR CONFIGURATION '>Er I \ I T ] -.\| 
PAPT 3 COMMQf,."AC - T, H AS T I fJtS/KCC TS 03 JUM *9 
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?2^S 

?27i? 
2271 
2 2 72 
2273 
72 74 
2 2 75 
2 2 76 
2277 
"2 78 
2279 
22?0 
22"1 
22R2 
2 2"-*3 
?2<=4 
2 28 5 
22?6 



iOISPLAY AND LITF PEN 



!Fr. niSN,< 

'FT, T340si,<£>:TraM TIS34j)> JTYpr 345! ENTRY POINT 

IFE T342V, <TEVTrRM nicT30> STYPF ?tf ENTRY P^INT 

INTERS DISRLi''. r iI < ;jSR,ONDIS.NnNOlS,f 1 FFD!S.DISPO v >niSPOF 

nlS9LK = = 4K + 2«0ISCH , J iBLKI/PLKO LOCATION 

niSjSR==D|SBLK*l 

nNOI?==100*l?»PENCHN+DlSCHN 

MONrJIS = = 10»PrNCHN*niSCHN 

offdis==? 

n I Se ! T==l 

REPEAT 7-DISrHN,<orSBIT==DISRIT«2> 

iisprN ==?200*DiSPiT icnwo pi, turns dis pi channel o* 

niSpi~F = = 10!ia*DISRIT ICONO PI, TURNS nIR PI CHANNEL OFF 
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;LINE PRINTER ENTRY POINT ANO DOP DEFINITIONS 

IFG LPTN, < 

IPROTUTYPE DEFINITION FOR LINE PRINTER DEVICE DATA BLOCKS 

DEFINE LPTODB (N> < 



2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
23010 
2301 
2302 
2303 
23014 
2305 

2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 



XLIST 

LP'N'SVisLP'N'SAC+DEVDAT 

LP'N' INT! CONSO |_P'N,0 
JRST .-1 

MOVEM DEVOAT.LP'NiSVl 
JS P DEVOAT.LPTINT 



JTURN OFF LISTING DURING EXPANSION 

(DEFINE DEVOAT SAVE LOCATION 

i<-4> SKIP IF INTERRUPT FOR THIS CPT 

l(-3) GO TO NEXT SKIP CHAIN ELEMENT 

l<-2) SAVE OEVDAT IN CHANNEL SAVr AREA 

l(-l) SET UP DOB ADORESS AND BRANCH 



LP'N'DOB: 
LP'N'NAM: 

IFE LPTN-1, < SIXBIT /LPT/ l( 0! PHYSICAL DEVICE NAME > 

IFM L p TN-l, < SIXBIT /LPT'N/ l( 0) PHYSICAL DEVICE NAME > 

XWD ♦D60»HUNGST,<N>B23+LPTSI2 l( 1) DEVICE CHARACTERISTICS 

I < 2> DEVICE I/O STATUS 

XWD 0.LPTDSP l( 3) LH=DDB LINK. RH=OSP TABLE AOOR. 

LPTM0D = = 1«-A + 1»AL + 1M ILPT LEGAL MOOES 

XWD DVOUT*DVLPT,LPTMOD l< 4) DEVICE CHARACTERISTICS 

1(5) LOGICAL DEVICE NAME 

!< 6) BUFFER HEADER ADDRESSES 

LP'N'PTR: )( 7) BLOCK OUTPUT POINTER 

XWD PROG.0 1(10) CURRENT OUTPUT BUFFER ADDRFSS 

EXP 11»LP'N'CHN 1(11) INTERRUPT CHANNEL ASSIRNMEmTS 



MOVE DEVDAT.LP'N'SVl 
JSR LP'N'SAV 
MOVEI DEVDAT.LP'NHiAM 
JRST LPTNXT 

MOVE DEVDAT.LP'N'SVl 

JEN PLP'N'CHL 



COMS2 LP'N.LPTECM 

CO^SO LP'N.LPTOON 

COMSO LP'N, (TAC) 

C0NS2 LP'N, (TAC) 

CONI LP'N, TAC 

CONO LP'N, (TAC) 

OATAO LP'N, (TAC) 

BLKO LP'N, LP'N'PTR 



J(12) RESTORE DEVDAT, SAVE AC'S 
I (13) AND ESTABLISH POP 

1(14) SET UP DOB ADDRESS AND RETURN 
1(15) TO COMMON INTERRUPT HANDLER 

((16) RESTORE DEVOAT AND 
1(17) DISMISS INTERRUPT 

i<20) SAVE LOCATION FOR TAC 

1(21) THE REST OF THE DDB CONTAImS 
1(22) THE ACTUAL I/O INSTRUCTIONS 
! USED BY THE COMMON SERVICE 
ROUTINE TO CONTROL * LINE 
PRINTER, THFY ARE EXECUTED 
BY MEANS OF AN XCT INSTRUCTION 
INDEXED TO THE PROPER DDB 



1(23) 

) (24) 
i (25) 
I (26) 
1(27) 

I (30) 



LIST 



ITURN LISTING BACK ON DURING EXPANSION 



COMMON - 



2340 

234J 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2361 
2362 
2363 



^vi°ia^xi\^s^z^^ :%w - ^ ^ CRn .»3 6 »,« 4. J ,,. 69 PAGE bA . x 



00? 524 



000000 



000001 



EXTERN LPTSER, LPTMXT, L PTE C M, LPTOON, LPTINT. L PTDSP 
lPT2 = 524 IDEvICE SELECT CODE FOR SECONJD LPT 



ILPNUM50 



REPEAT LPTN, < 



(TEMPORARY SYMBOL USED TO FACILITATE 
! MACRO GENERATION 



LPTDOB (\JLPNUMJt 
ILPNL'M = $LPNUM*1 



COMMON 



2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
?378 
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PART 3 COMMON. MAC - T, HAST I NGS/RCC TS 03 JllN 69 

;CARD READFR ENTRY POINT AND BITS 

IFG CDRN,< 

IFG CR10N,<EXTERN CDPSRX> 
IFF CR10N.<EXTERN CDRSR6> 
INTERN CDRBTS 
001673 CORBTS==1670+CDRCHN 

> 



(CARD PUNCH ENTRY POINT 

IFG CDPN, < 

EXTERN CDPSE" 

> 
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ICRlA ENTRY POINT 
IPOP-6 CARD READFR 



IENTRY POINT 



COMMON - 



2379 

23?0 

23*1 

23B2 

23«3 

23M 

23*5 

2 3 [16 

2367 

23158 

335 9 

2390 

2391 

2392 

2353 

23Q1 

2395 

2396 

235 7 



.'ITinN 
5 9 



MONITOR COMMON DATA AREA AND CONFI GUR A T , ON nEFINI 
ART 3 CCMMO*,MAC - T. HASTINGS/RCC TS 03 "mil 

jplottf.r entry point 

ifg p|_tn,<extern pltser> 
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000000 



JPAPEH TAPF READER ENTRY POJVT A«i D MASK 

iNTERN^p'iR^K 1 "" PTR<;ER ' SAME R0UT,NE r0 " PD "« *NH PDP-10 READER 
IFG POP10N,<PTRMSK==H> ;MASK:=0 IF P D P-10 REAOER 
IFF. PDP10N,< OT RM9, < = = 777777> ,MASK- S7 77777 ?" 



"OR PDP-6 READER 



JPAPER TAPE PUNCH EKTRY POINT 

IFG PTPN,<EXT£RN PTPBER> 



COMMON - MONITOR COMMON DATA AREA AND CONFIGURATION DEFINITION 
PART 3 COMMON. MAC - T, HASTJNGS/RCC TS 03 JUN 69 

; 1 SK ENTRY POINTS AND BITS 
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2398 
2399 

2400 
2401 
24132 
24513 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 

2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 



000000 
000001 

000002 
000004 
002004 
001004 



IFG OSKN,< 

INTERN DSKBIT.DCBBIT.DSKONiDSKOFF 

OCBB!T==0 10 UNLESS DATA PRODUCTS DISMSEE BELOW) 

DSKBIT==1 tLOW PRIORITY OISK PI CHANNEL 

REPEAT 7-DSKCHN,<0SKBIT==DSKBIT«2> 
DSKBlTr=0SK6lT«2 
DSKBn = = nSKB!T»2 , „„ 

DSKON = = 2000*i"iSKB!T ICONO PI, TURN DISK CHANNEL ON 

OSKOFF==1000+DSKPIT ICONO PI. TURN DISKCHANNEL OFT 
IFG RD10Ni< (BURROUGHS DISK 

rXTERN RCX I NTi OSKSRB, RCXWN? iLOAO EARLIER VERSIONS OF 

I DSKINT.0SKSRR.ONCE9 

IFG SYS50N,<FXTERN RCXSKD> iLOAO EARLIER VERSION OF SCHEDB 
> 
IFG DPr)N,< IIF DATA PRODUCTS OISK 

EXTERNAL LODINT tLOAO DPDINT 

EXTERNAL DSKSRO ILOAO ONCE*DSKSR FOR DATA PROD OlSK 

INTERN DCBBITiDSKX8,OSKX9 

DCBBIT==1 

REPEAT 7-DCBCHN,<DCBBIT==DCBBIT»2> 

nsKXP==40*2*DC?CHN ; DATA-CONTROL RLKI/BLKO I OCS 

DSKX"==DSKX8*1 
> 
IFG RA10N.< IIF BRYANT DISK 

EXTERN MDF1NT.DSKSER,MPFWN? 
IFG SYS50N.<EXTERN RCXSKD> 
> 



iPSEUDO TTY ENTRY POINT 

IFE PTYN,<INTERN PTYPE , PTMNMZ , PTYOW , PTMNMD 
pTYPESPTMNMiSPTYOWlPTMNMDl HALT CPOPJ IHALT IF SCNSER CALL PTY ROUTINES 

; BECAUSE NONE LOADED 



IFG PTYN,< 

IFE FULLN,<EXTERN PTYSRH> 

IFG FULLN.<EXTERN PTYSRF> 



IHALF DUPLEX SCANNER SOFTWARE 
IFULL DUPLEX SCANNER SOFTWARE 



002131 
001771 



001771 



LIT 
RELOC 



COMENDl END 



,-COMORG 



INOW MAKE RELOCATABLE SO NEXT PROGRAM W 1 1 L BE LOADED 
I IMMMEDIATELY AFTER THIS ONE 



NO ERRORS DETECTED 
PROGRAM BREAK IS 001775 



COMMON 



- MONITOR COMMON DATA AREA AND CONFIGURATION DEFINITION 
SYMBOL TABLE 
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A 


000000 


INT 


AC3 


000017 


INT 


APRCHN 


0000Z3 


INT 


APRERR 


000203 


INT 


APRN 


000001 


OLD 


APRRST 


633553 


INT 


BIGHOL 


000273 


INT 


CCIN 


000000 


INT 


CDRCHL 


001603 


INT 


CDPINT 


000253 


EXT 


CDRSAC 


001616 


INT 


CHI 


002001 


INT 


CH3P01 


001630 




CH5 


001727 


INT 


CH7 


002007 


INT 


CLKBIT 


300001 


DLD 


CLKFLG 


000201 


INT 


CLOCK1 


000000 


EXT 


CNFTOL 


001447 


INT 


COMCON 


000000 


FXT 


CONFIG 


001447 


INT 


CORE^ 


000400 


INT 


CORMAX 


000260 


INT 


CPOPJ 


001554 


INT 


CR13N 


000001 


INT 


CRSHAC 


001522 


EXT 


CTYCML 


301655 


INT 


CTYLIN 


200000 


INT 


CUXIT 


001554 


I NT 


OATJOB 


000000 


EXT 


ODBNHM 


000247 




ODTSYM 


000036 


INT 


OEVCMR 


7000'"! 


INT 


OEVIOS 


C00002 


INT 


DEVOPR 


001462 


INT 


HISN 


■? 


INT 


OL5STS 


001532 


I NT 


OPSWPN 


000000 


INT 


HSK3IT 


000004 


INT 


n s k o "■ B 


300274 


EXT 


DSkn 


0000K1 


INT 


"Skrft 


001737 


INT 


osksrb 


0000^0 


EXT 


nTACJL 


0016 C !5 


INT 


0TA3DS 


000000 


FXT 


DTALOC 


000044 


INT 


OTAS4C 


001670 


INT 


DTPIT 


000000 


OLD 


OTDCNN 


000002 


INT 


PTTURN 


300224 


INT 


OVOUT 


030001 


INT 


FRROR 


032037 


FXT 


FIT 


030276 


INT 



AC1 


000015 


INT 


AL 


000001 


I NT 


aprcli: 


431553 


INT 


APRFOV 


000100 


INT 


APRNIII. 


433553 


INT 


aprsn 


000002 


INT 


BLKMYC 


000003 




CDPN 


000000 


INT 


CDRCHN 


000003 


INT 


CORN 


000001 


INT 


CORSAV 


001605 


INT 


CH2 


002003 


INT 


CH4 


001655 


INT 


CH5P01 


001754 




CIPWT 


000211 


INT 


CLKCHL 


002007 


INT 


CLKJNT 


000301 


EXT 


CLRWRD 


000271 


INT 


CNTDD 


000152 


INT 


COMEND 


001771' 




CORBLK 


00041*0 


INT 


COREP 


001574 


INT 


CORTAB 


000250 


INT 


CPOPJ1 


001552 


INT 


CRASMX 


001513 


INT 


crshwo 


000030 


INT 


CTYCMN 


000004 


INT 


CTYM 


000001 


INT 


CUXIT1 


001552 


INT 


CCBBIT 


000000 


INT 


ODBTAB 


000307 


INT 


DDTX 


000000 


EXT 


DEVOAT 


000006 


INT 


OEVLST 


001463 


INT 


DEVSFR 


000003 


INT 


OLSINT 


000000 


FXT 


OPON 


000000 


INT 


DSCTLN 


020000 


INT 


DSKCHL 


001727 


INT 


"SKOTI 


001542 


INT 


nSKOFF 


001004 


INT 


05KSAC 


001742 


INT 


OS^STP 


001545 


EXT 


TTACMN 


00000 4 


INT 


OTA JNT 


000265 


EXT 


DTAN 


0000 10 


INT 


OTASAV 


001657 


INT 


OTBOTH 


000024 


INT 


DT5STS 


001533 


INT 


DUMPPP 


001601 


INT 


FDITN 


000001 


INT 


FRRPDL 


000120 


INT 


FORCE 


000275 


INT 



AC2 


200016 


INT 


APRCHL 


001603 


l NT 


APRCLR 


001003 


i NT 


APRINT 


000255 


rXT 


APRPC 


000204 


INT 


APRSTS 


001524 


TNT 


BLKQNT 


000062 


TNT 


CORBTS 


001673 


TNT 


CDROOB 


000254 


FXT 


CORRFT 


001613 


TNT 


CDRSRX 


000000 


rXT 


CH3 


001603 


TNT 


CH4PQ1 


001702 




CH6 


002005 


TNT 


CIPWTM 


000210 


TNT 


CLKCHN 


000007 


TNT 


CLKN 


000001 


DLD 


CNFMXL 


020000 


TNT 


COMCNT 


000177 


TNT 


COMORG 


000140 




CORE! 


000000 


FXT 


CORLST 


000261 


TNT 


COPTAL 


000262 


TNT 


CP0PJ2 


001551 


TNT 


CRINIT 


000244 


rXT 


CRSTS 


001534 


T N T 


CTYIMT 


000271 


rXT 


CUSPPP 


001600 


TNT 


DAT 


000005 


TNT 


DCSN 


000000 


■NT 


ODTN 


00001 


TNT 


DESONC 


000246 




DEVI AD 


7 


•NT 


E V N A M 


700000 


•NT 


OISLIN 


10 0? 


•NT 


OLSN 


000001 


i NT 


DPOPJ 


001553 


• MT 


DSDTLN 


040000 


TNT 


OSKC4N 


000005 


• N T 


0S*|NT 


000273 


rXT 


D S K N 


002004 


TNT 


OSKSAV 


001731 


TNT 


OSKSTS 


001541 


TNT 


DTADOB 


000266 


rXT 


0TALC2 


000045 


TNT 


OTARET 


001665 


TNT 


OTASRN 


000000 


rXT 


DTCN 


000000 


'NT 


DTTRY 


000004 


TNT 


DVLPT 


040000 


TNT 


ERRCON 


000000 


FXT 


FINISH 


000274 


INT 


FORTY 


000040 


TNT 
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FSNCHN 


000404 


INT 


FTKCT 777777 777777 


INT 


FTSLEE 777777 777777 


INT 


FTTRAC 


000000 


INT 


FULCNT 


000301 


INT 


MELPfP 


301602 


INT 


MIGHJB 


000270 


INT 


HNGTIM 


000200 


INT 


I 


000010 


INT 


ICPRT1 


001473 


EXT 


IMGOUT 


001576 


INT 


INTNUM 777777 777746 


INT 


IOS 


000000 


INT 


IPOPJ1 


001560 


INT 


JBTAD1 


000422 


INT 


JBTDAT 


000421 


INT 


JBTMAX 


000067 


INT 


JBTPRG 


001105 


INT 


JBTQM1 


001354 


INT 


JBTSGN 


000511 


INT 


JBUF 


000005 


INT 


JIFSEC 


000074 


INT 


JOBOAT 


000151 


INT 


JOHN 


000034 


INT 


JWPOS 


000016 


INT 


KTJ0A 


000033 


INT 


LINKED 


000245 




LISTSN 


000001 


DLD 


LOGSIZ 


000002 


INT 


LP0CHL 


001655 


INT 


LP0INT 


002074 




LP0PTR 


002107 




LPflSAV 


001657 


INT 


LPT2 


000524 




LPTECM 


002121 


EXT 


LPTN 


000001 


INT 


LPTSIZ 


000032 


INT 


MAXJ9N 


000303 


INT 


MINCOR 


002750 


INT 


MMTSIZ 777777 777600 


INT 


MQUE'JE 


001265 


INT 


MTADOB 


000270 


EXT 


MTALOC 


000042 


INT 


MTAS4C 


001670 


INT 


MTBN 


000000 


INT 


MTDCHN 


000001 


INT 


MTSI2 


000200 


INT 


MXQUE 


000034 


INT 


NSPMFM 


003340 


INT 


NULDAT 


000042 


INT 


NULJOB 


001550 


EXT 


NXM 


010000 


INT 


ONCE 


000145 


EXT 



FT2REL 777777 


777777 


INT 


FTPRV 777777 


777777 


INT 


FTSWAP 777777 


777777 


INT 


FTTRPS 777777 


777777 


INT 


FULLN 


000001 


INT 


HGHLIN 


000027 


INT 


MLFrjPX 


010000 


INT 


HOLEF 


000264 


TNT 


] ADPTR 


001572 


INT 


IMGIN 


001575 


INT 


INLEFT 


000012 


INT 


INTTAB 


000251 


INT 


IOW? 


000024 


INT 


ITEM 


000004 


INT 


JBTADR 


000421 


INT 


JBTDIR 


000545 


INT 


JBTMXL 


067000 


INT 


JBTP9V 


001231 


INT 


JBTQMN 


001326 


INT 


JBTSTS 


000331 


INT 


JIFMIN 


007020 


INT 


JOB 


000150 


INT 


JOBMAX 


000033 


INT 


JSR2 


000146 


EXT 


JWSIZ 


000005 


INT 


KT10AN 


000001 


INT 


LINKSR 


000151 


EXT 


LOCORE 


000241 


EXT 


LOOP 


000156 




LP0CHN 


000004 


INT 


LP0N 


000001 


OLO 


LP0RET 


001665 


INT 


LP0SV1 


001676 




LPTDON 


002122 


EXT 


LPTJNT 


002077 


EXT 


LPTNXT 


002115 


EXT 


LPTSTS 


001535 


INT 


MAXSIH 


000302 


INT 


MJOBM 777777 


777744 


INT 


MONTAB 


001476 


INT 


MTACHL 


001655 


INT 


MTADDS 


000000 


EXT 


MTAN 


000003 


INT 


MTASAV 


001657 


INT 


MTBOTH 


000041 


INT 


MTFLAG 


000440 


INT 


MTTYLN 777777 


777745 


INT 


NEXT 


000226 




NSWMXL 


022000 


INT 


MULEPR 


000206 


INT 


NULPOL 


000101 


INT 


ODPMXL 


003000 


INT 


OUTMSK 


377000 


INT 



FTDISK 777777 


777777 


INT 


FTRC10 777777 


777777 


INT 


FTTIME 777777 


777777 


;NT 


FTTTYS 777777 


777777 




FULTWX 


000004 


INT 


MIGHAC 


000010 


TLD 


MNGSEC 


000170 


INT 


HUNGST 


000001 


TNT 


ICPROT 


001472 


FXT 


IMGINT 


001577 


INT 


INMSK 


000377 


TNT 


INTT91 


000252 


TNT 


IPOPJ 


001561 


TNT 


ITMSGN 


033004 


TNT 


JBTCHK 


001015 


TNT 


JBTKCT 


001175 


TNT 


JBTNAM 


001105 


TNT 


JBTQ 


001355 


TNT 


JBTQP1 


001356 


TNT 


JBTSWP 


000725 


TNT 


JIFSC2 


000036 


TNT 


JOBADR 


000151 


TNT 


J08MXL 


033000 


tNT 


JUSTCT 


000224 




K4SWAP 


001471 


I NT 


LINKDB 


000150 


TNT 


LINTAB 


002041 


TNT 


LOGINN 


000001 


TNT 


LP0 


000124 




LP0DDB 


002100 




LP0NAM 


002100 




LP0SAC 


001670 


TNT 


LP1 


000524 




LPTQSP 


0021C3 


TXT 


LPTMOD 


000403 


nLD 


LPTSER 


000000 


rXT 


LSTWRD 


000272 


TNT 


MIDNIT 


001512 


TNT 


MLTTYL 777777 


7 7 7 7 4 4 


T NT 


MQTOP 


001321 


TNT 


MTACMN 


il 4 


TNT 


MTAINT 


00H267 


FXT 


MTARET 


001665 


TNT 


MTASRX 


000000 


FXT 


MTCN 


000000 


TNT 


MTLOC1 


000043 


TNT 


MULODB 


000170 




NOTDTA 


000207 




NSUTBL 


000250 


TNT 


NULJB1 


001547 




NULZ 


000027 


TNT 


ODPTBL 


001470 


TNT 


PATCM 


001461 


t-XT 
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PATSYM 


1 4 L 


EXT 


PDP 


pi r 1 3 


INT 


POVTIM 


(101570 


INT 


PlfXK 


(104201 


INT 


PION 


0002013 


INT 


PJOBN 


001565 


INT 


PLTDOB 


000300 


EXT 


PLTRFT 


001737 


INT 


PLTSFR 


000000 


EXT 


POTLST 


000207 


INT 


PROT 


001472 


INT 


PTPCWN 


0000 5 


INT 


PTPN 


000001 


INT 


PTPSAV 


001731 


INT 


PTRCUL 


001655 


INT 


PTR]«,!T 


000261 


EXT 


PTRRFT 


001665 


INT 


PTRSFR 


000000 


EXT 


PTYDOS 


000000 


EXT 


PTYSPF 


000000 


EXT 


PUUOJC 


001563 


INT 


RAXCfW 


000027 


INT 


RCXINT 


000000 


EXT 


PCXWNZ 


000000 


EXT 


REOCLK 


004001 


INT 


RET5 


001737 


INT 


PTIME 


000635 


INT 


SAV5 


001731 


INT 


SAVAC5 


001742 




SCHEDF 


000205 


INT 


SCNCHM 


000004 


INT 


SCNINT 


000257 


EXT 


SCNDFF 


001010 


INT 


SCNSiC 


001670 


INT 


SEGCON 


000000 


EXT 


SERI4. 


001467 


INT 


SIXTY 


000060 


INT 


SMALL 


000220 




STOPTS 


000210 


INT 


SUMCOR 


000304 


INT 


SWPIN 


000305 


INT 


SWPTPI. 


000273 


INT 


SYS50N 


000001 


INT 


SYSCPS 


000147 




SYSDFV 


000100 


INT 


SYS I MI 


000143 


EXT 


SYSPP 


001600 


INT 


SYSTAP 


001456 


INT 


T340N 


000000 


INT 


TAC 


000001 


INT 


THSOAT 


001460 


INT 


TIOW2 


000025 


INT 


TPOPJ 


001556 


INT 



PC0RS2 


001573 


INT 


POP10N 


000001 


INT 


PENN 


000000 


INT 


PIOFF 


000400 


INT 


PISTS 


001525 


INT 


p LTC"L 


001727 


INT 


PLTINT 


000277 


FXT 


PLTSAC 


001742 


INT 


PLTSTS 


001536 


INT 


PRJPRG 


000545 


INT 


PROT0 


001473 


INT 


PTPDOB 


000276 


EXT 


PTPRFT 


001737 


INT 


PTPSER 


000000 


EXT 


PTRCHN 


000004 


INT 


PTRMSK 


000000 


INT 


PTRSAC 


001670 


INT 


PTRSTS 


001530 


INT 


PTY L iN 


400000 


INT 


PTYTAB 


001444 


INT 


RA10N 


000000 


INT 


RAXIOC 


000026 


INT 


RCXIOC 


000014 


INT 


R D 1 w 


000001 


INT 


RET3 


00163 3 


INT 


RP10W 


000000 


INT 


SAV3 


001605 


INT 


SAVAC3 


001616 




SAVOMP 


634166 


INT 


SC^BIT 


00001 


n Ln 


SCNDOB 


000260 


EXT 


<CNN 


000034 


INT 


<;cno m 


002010 


!N T 


SCNS4V 


0016*7 


INT 


SEGN 


000 3 4 


r nt 


SHFWAT 


000263 


INT 


SLJGPN 


003 4 




STATES 


001466 


INT 


CTOP? 


0000T0 


INT 


SWPERC 


0003'»0 


INT 


swpmxl 


005000 


INT 


^WTSTS 


0015?6 


INT 


SYSBEG 


000150 


INT 


SYSD4T 


001 4=4 


I NT 


SYSOSP 


000140 


I NT 


SYSmak 


003142 


FXT 


SYSSI2 


001461 


INT 


SYSTOP 


001571 


INT 


T35 


000010 


INT 


TAC1 


000002 


INT 


TIME 


001457 


INT 


TMCSTS 


001540 


INT 


TPOPJ1 


001555 


INT 



POL 


000025 


OLD 


PDVCNT 


001571 


INT 


PHYNAM 


000250 




PIOMOD 


001564 


INT 


PJ8STS 


001567 


INT 


PLTCHN 


000005 


INT 


PLTN 


000001 


INT 


PLTSAV 


001731 


INT 


PMONTB 


001475 


I NT 


PROG 


000007 


INT 


PTPCHL 


001727 


INT 


PTPINT 


000275 


FXT 


PTPSAC 


001742 


INT 


PTPSTS 


001531 


INT 


PTRDDB 


000262 


FXT 


PTRN 


000001 




PTRSAV 


001657 


INT 


PTYODB 


000252 


FXT 


PTYN 


000002 


INT 


PUNIT 


001566 


INT 


RASWPN 


000000 


INT 


RCXCCW 


000035 


INT 


RCXSKQ 


7100000 


FXT 


ROSWPN 


000001 


INT 


RET4 


001665 


INT 


RPSWPN 


000000 


INT 


SAV4 


001657 


INT 


SAVAC4 


001670 




SAVN 


000001 


nLD 


SCNCHL 


001655 


r NT 


SCNOOS 


000000 


FXT 


SCNNUM 


000030 


INT 


SCNRET 


001665 


TNT 


SCNSRF 


000000 


rXT 


SEGPTR 


001464 


TNT 


SHFtIRO 


000266 


INT 


SLP2 


000026 


INT 


STDENS 


000002 


INT 


STUSER 


000267 


I NT 


S W P H G H 


001470 


INT 


SWPOUT 


000306 


I NT 


SYS40N 


000000 


INT 


SYSBG1 


000151 


INT 


SYSOOT 


000141 


INT 


SYSENO 


001446 


INT 


SYSPnL 


001544 


rXT 


SYSSNP 


000037 


INT 


T30SYM 


000131 


INT 


TABSN 


000000 


INT 


TCONLN 


000030 


INT 


TIMEF 


000202 


INT 


TMSSTS 


001537 


INT 


TPYTAB 


001441 


I NT 
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TSTLOC 


001520 




TTPLEN 


000033 


INT 


TTYSTS 


001527 


INT 


UDDTN 


000001 


INT 


USED1 


000000 


OLD 


USFD4 


000001 


OLD 


USED7 


000000 


OLD 


USRHI 


000176 


INT 


USRLO 


000157 


INT 


USRPC 


000155 


INT 


USRREL 


000152 


INT 


uuoa 


002031 


INT 


UUOER1 


002025 




UUOUSR 


002040 


EXT 


VIRT41 


000277 


INT 


XJBPFI 


001474 


INT 


,CH 


000007 


DLO 
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TTIME 


000671 


INT 


TTPMXL 


0320510 


INT 


TTYTAB 


001411 


INT 


UIOMOD 


0040PI0 


INT 


USED2 


000000 


OLD 


USED5 


"100001 


OLD 


USRDDT 


000156 


INT 


USRJDA 


000157 


INT 


USRLOl 


0001*0 


INT 


HSRPR1 


000155 


INT 


USRSAV 


000153 


INT 


UU02 


002011 


INT 


UU0ER2 


002026 




UXIT 


001554 


INT 


WDPJIF 


011072 


INT 


11 770000 000000 


DLO 


,CHAS 


000001 


OLD 



TTMODL 


000000 


INT 


TTYRMT 


004000 


INT 


TWOREG 


001465 


INT 


UPTIME 


000265 


INT 


USED3 


000001 


nLD 


USE06 


000000 


OLD 


USRHCU 


000154 


INT 


USRLIM 


000400 


TNT 


USRMOO 


010000 


TNT 


USRPRT 


000154 


TNT 


UUO 


000014 


TNT 


UUOCON 


000000 


rXT 


UUOSY1 


002035 


FXT 


VCOMMN 


000437 


TNT 


XCKCSW 


000000 


FXT 


SLPNUM 


000001 





A 


153* 


153 


2357 






AC1 


49* 


49 


1348 


1381 


1382 


AC2 


49* 


50 


1358 


1359 


1362 1365 


AC3 


50* 


51 


1347 


1371 


1383 1384 


AEFERR 


244* 


244 








Al 


154* 


154 


2357 






APR 


1817 


1819 


1832 






APRCML 


1602* 


1602 








APRCWN 


16^0 


1600* 


2074 


2075 


2077 


APRCLE 


2066 


2075* 








APRCLR 


2066 


2074* 








APRERR 


985 


997* 








APPFOV 


2066 


2081* 








APRINT 


1600 










APRN 


1558* 


1600 








APRNUL 


2066 


2077* 


2079 






APRPC 


985 


999* 








APRRST 


1832 


2066 


2079* 






APRSM 


645* 


645 


809 


1730 


2132 2133 


APRSTS 


1797 


1817* 








ASSCON 


105* 


105 








ASSPRG 


1(*6* 


106 








R 


157* 


157 








RIGHtlL 


1078 


10H4* 








P.LKMXC 


1592 


1593 








RLKQMT 


832 


835 








RUFPKT 


44* 


44 


45 






SURWRD 


46* 


46 








CCIN 


658* 


658 


2103 






CDPN 


710* 


710 


1637 


2376 




CDRBTS 


2369 


2370* 








CDRCHL 


15970 


1597 








TDRCHN 


1597* 


1597 


2370 






CDRDHB 


1597 


1598 








C D R I M T 


1597 










CDR^ 


7040 


704 


1597 


1598 


2366 


CDRRFT 


1597* 


1597 








PDRSiC 


1597# 


1597 








CDRSAV 


1597* 


1597 








TORSRX 


2367 










CHI 


1967 


1967* 








CM? 


1968 


1968* 








CM3 


1597 


1602 


1952 


1952* 




r^PTl 


1952* 










rri4 


1606 


1609 


1612 


1615 


1619 1625 


CH4PH1 


1953* 










TH5 


1630 


1634 


1638 


1954 


1954* 


CH5PC1 


1954* 










fH6 


1972 


1972* 








DH7 


1658 


1973 


1973* 






C1PWT 


988 


1019* 


1024 






r ipwtm 


983 


1024* 








CL.K9! T 


2068* 


2072 









1366 



1367 



2164 



1953 



1953* 



CLKCHl 


1658* 


1658 




CLKCHN 


1656 


1656* 


2069 


CLKFLG 


985 


994* 




CLKINT 


1656 






CLKN 


1559* 


1656 




CUKR 


zm# 


300 


332 


CL0CK1 


2048 






CLRWRD 


1028 


1057* 




CLSIW 


83# 


83 




CLSOUT 


82# 


82 




cmub 


272# 


272 


302 


CNFMXL 


1676 


1731# 




CN.FTBL 


1676 


1679* 


1731 


CNTQB 


1326 


1331# 




COMCNT 


985 


990# 




COMCON 


2048 






COMEND 


2444# 






COMORG 


8650 


866 


2441 


CONFIG 


1676 


1684* 


1686 


CORBL.K 


1038# 


1038 




CORCNT 


356# 


356 




CORE1 


2048 






COREN 


606* 


606 


2094 


COREP 


1865 


1882* 




CORLST 


986 


1027 


1042* 


CORMAX 


1027 


1039* 




CORTAB 


1027 


1035* 


11)82 


CORTAL 


986 


1027 


1044* 


CPOPJ 


1845 


1854* 




CPOPJl 


1845 


1850* 




CPOPJ2 


1845 


1848* 




CR 


1825 






CR10N 


705* 


705 


2367 


CRASWX 


1797 


1805* 




CRINIT 


1391 


1401 




CRSHAC 


1801 


1805 


1812 


CRSHWD 


892 


898* 




CRSTS 


1798 


1825* 




CTYCML 


1625* 


1625 




CTYCHN 


1623 


1623* 




CTYINT 


1623 






CTYLIN 


2118* 


2118 




CTYN 


1554 


1555* 


1623 


CUSPPP 


1901 


1903# 




CUXIT 


1846 


1853* 




CUXIT1 


1846 


1849# 




n 


160* 


160 




oat 


30* 


30 


32 


DATJOB 


2048 






DCBBIT 


2401 


2432* 




OCBCHN 


1579 






DCU 


79# 


79 


80 


DCLI 


94# 


94 





2094# 2097 



2368 



1813 



1614 



2015 



0CL3 


83* 


F0 












TCL3 


95* 


9 5 












OCSM 


659* 


6'i9 


2104 










nCTCHN 


1564 


15 "9 












ODBNIJM 


1343 
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SCNINT 


1606 










SCNN 


1554 


1556* 


16 0.6 


1607 


1608 


SCNNUM 


2208* 


2208 








SCNOFF 


2194 


2203* 








SCNON 


2194 


2202* 








SC»JRET 


1606* 


1606 








SCNSAC 


1606* 


1606 








SCNSAV 


1606* 


1606 








SCNSRF 


2106 










SD 


158* 


158 








SEGCOM 


2061 










SEGN 


622* 


622 


1150 


1150* 


1152 ll'J4 


SEGPTR 


1695 


1710* 








SERIAL 


1696 


1730* 








SHT 


292* 


292 


302 






SHPWA'I 


986 


1027 


1045* 






SHFWRD 


1028 


1052* 









1953* 



1953* 



1953* 



22C1* 2202 



2203 



ll^B 1165 



1173 



1184 



1198 



1203 



1208 



1710 



SHRSEG 


275* 


275 


344 


344* 






















SIXTY 


891 


919* 


1989 


1992 






















SLEVFL 


233* 


233 


























SLICr 


232* 


232 


























SLJORN 


1017* 


iei8# 


1019 
























SLPZ 


1260* 


1261 


























SMALL 


1373 


1379* 


























SNA 


270* 


270 


























SPYSFG 


341* 


341 


























STATFS 


1695 


1725* 


























STDENS 


812 


814 


























STOPIO 


302* 


302 


























STOPTS 


1012 


1013* 


























STOP? 


1266* 


1267 


























STTYB1 


543* 


543 


























STTYP.F 


542# 


542 


543 
























STIISFR 


1028 


1053* 


























SUCCOR 


1079 


1111* 


























SWP 


296* 


296 


302 
























swpcuR 


336* 


336 


























SWPERC 


1078 


1097* 


























SWPHKH 


1733 


1744* 


























SWPIN 


1114 


1115* 


























SWPMXL 


1078 


11C5* 


























SWPOUT 


1114 


1118* 


























SWPTBL 


1078 


10R0* 


1105 
























SWTSTS 


1797 


1819* 


























SYS40N 
SYS50N 


565* 
566* 


565 
566 


2053 
1077 


1196 


1225 


1719 


1735 


1737 


1884 


2054 


2091 


2412 






SYSBFG 


931 


933* 


935 


1313 






















SYSBG1 


931 


935* 


935 
























SYSCR5 


886* 


1807 


























SYSDAT 


1676 


1688* 


1689 
























SYSDDT 


863 


871* 


























SYSDFV 


225* 


225 


























SYSDSP 


863 


870* 


























SYSEMO 


931 


1310* 


1671 
























SYSIM! 


862 


870 


881 
























SYSMAK 


862 


880 


2048 
























SYSPDL 


1799 


1833 


























SYSPP 
SYSSIZ 


1901 
1352 


1905* 
1359 


1392 


1397 


1695 


1701* 


















SYSSNP 


891 


912* 


























SYSTAP 
SYSTOP 


1676 
886 


1690* 
1797 


1808 


1809 


1810 


1812* 


















T30SYM 


892 


926* 


























T340M 
T35 


717* 
2124* 


717 
2124 


2136 


2137 


2138 


2141 


2142 


2143 


2144 


2149 


2150 


2151 


2152 




TARSN 
TAC 

TACl 


670* 
25* 
1394 
1990 
26* 


670 

25 

1395 

1992 

26 


2204 
1330 
1396 
1993 
1338 


2205 
1333 
1397 
1994 
1339 


1336 
1398 
1995 
1341 


1338 
1399 
1998 
1342 


1358 
1400 
2000 
1352 


1363 
1401 
2003 
1354 


1385 
1409 
2357 
1357 


1386 
1769 


1387 
1857 


13B9 
1985 


1S92 
1987 


1393 
1989 



TCONLN 


1291 


1295*' 






TEM 


39* 


39 






THSDAT 


1695 


17P0* 






TIME 


1695 


1699* 






TIMET 


985 


995* 






now? 


1257* 


1258 






TMC 


1829 








TMCSTS 


1797 


1B?9# 






TMS 


182B 








TMSSTS 


1798 


1828* 






TPOPJ 


1845 


1857* 






TPOPjl 


1845 


1856* 






TPYT48 


1291 


1294* 






TRN'ERR 


246* 


246 






TSTLDC 


1806 


1610* 






TTIMF 


1192 


1194* 






TTMOnL 


1291 


22P5* 






TTPLEN 


1291 


1299* 


1300 


1305 2189 


TTPMXL 


1291 


13^0* 






TTY 


1820 








TTYATC 


124* 


124 






TTY81U 


121* 


121 






TTYR"T 


212J* 


2123 


2144 


2153 2155 2156 


TTYSTS 


1797 


18?0# 






TTYTAB 


1291 


1293* 


1295 


1299 


TTYUSE 


123* 


123 






TWORFG 


1695 


1712* 






IICHN 


45* 


45 






UDOTN 


6 3 7 # 


637 






IJIOMOD 


207 # 


2 7 


1987 


199B 


UNIOl 


1571 








UNIQ4 


1634 








UNIQ5 


1627 








UN IQ4 


1642 








UPTIME 


1028 


1050* 






USED1 


1544* 


1949 


1966 




USED? 


1545* 


1950 


1967 




USED.? 


1546* 


1597* 


1951 


1968 


USED4 


1547* 


16?6# 


16^9* 


1612* 1615* 1619* 


USED? 


1548* 


1650* 


1634* 


1638* 1953 1973 


USEO* 


1549* 


1954 


1971 




USED7 


1.550* 


1955 


1972 




USROHT 


956 


972* 






USRHPU 


956 


9'>1* 






USRHI 


956 


9fll* 






USRJOA 


956 


973* 


977 




USRLIM 


2K97* 


2097 






USRUD 


956 


977* 


9B3 




USRLOl 


956 


9R0# 






USRMnD 


2S"6* 


2P6 


1998 


2012 


USRPr 


956 


971* 






USRPR1 


956 


959* 






USRPRT 


956 


958* 


959 





2157 



2158 



2159 



2160 



2161 



2162 



1952 



1969 



JSRREL 


936 


943* 












JSRS'V 

JUO 


936 
47* 


946# 
47 


956 
1343 


201tf 
1344 


1383 


1868 




JUO0 

jun2 


2000 
1982 


2006 
1984* 


2009* 
1985 


2011 
1995 


1996 


2033 




juncoN 


2048 














JUOERl 


1991 


1998* 












UUC1ER2 


1988 


2000* 












uunSYi 


2007 


2013 












uunusR 


2007 


2041 












UWP 


205* 


205 












uwpotf 


346* 


346 












UXIT 


1846 


1852* 












VCOMMN 


776# 


776 












VIRTAL 


1078 


1089* 












WDPJIF 


840 


843* 












WTMASK 


312* 


312 












xckcsw 


2054 














XJ9PFI 


1762 
1612* 


1764* 
1612 


1614 


16l4# 


1717* 


1718 


1718* 


,CH 


1722* 
1569* 


1723 
1570 


1723* 
1570* 


1725 
1571 


1593* 


1597 


1610 




1615 


1619 


1623 


1625 


1626 


1626# 


1627 


,CHAS 


1654* 
1568* 

1630* 


1656 

1571* 

1634* 


1658 

1597* 

1638* 


1600* 

1641 


1603 
1642* 


1604* 
1646 


1606* 
1656* 


IUPNUM 


2350* 


2356 


2357 


2357* 









1719 



1602 



1630 



1609* 



1719* 



1603 



1634 



1720 

1603* 

1638 



1720* 



1604 



1641 



1612* 1615* 1619* 



1721 
1606 
1641* 
1623* 



1721* 



1609 
1642 



1626 



1722 



1612 



1650 



1627* 



ASG[\'l 


1443* 


1622 


1625 


1658 






















ASGIM 


1431* 


15«9 


1622 


165b 






















asrsav 


1457* 
1644 


156 4 


1596 


1605 


16P"8 


1614 


1617 


1618 


1621 


1629 


1632 


1633 


1636 


163 


ASGSV1 

CHAM 


1472* 
1915* 


1565 
1951 


1597 
1952 


1606 
1953 


1609 


1612 


1615 


1619 


1630 


1634 


1638 








CODES 


535# 


1254 


























OEVASG 


1528* 


1612 


























DISA"L 


401* 




























ENABLE 


40 8* 




























LPTODB 


2293* 


2356 


























MULASG 


1517* 


1611 


























NEXTCH 


1536* 


1570 


1603 


1626 


1641 




















NEXTCQ 


1540* 


1603 


1626 


1641 


1646 




















NEXTfll 


1541* 


1571 


1604 


1627 


1642 




















NOSCHE 


378* 




























NOSHIJT 


391* 




























NULL 


1958* 


1966 


1967 


1971 


1972 




















flUEUES 


516* 


1236 


























SCHEOU 


383* 




























SHUFFL 


396* 




























SPASGI 


1426* 




























SPASGS 


1451* 




























spci\:t 


749* 


1658 


























SPCSAV 


755* 


1662 


























STARTD 


420* 




























SYSDAT 


651* 


1688 


























SYSDEV 


649* 


16 90 


























SYSNAM 


640* 


1684 


























X 


1235* 
1260 


1236 
1263 


1237 
1266 


1238 


1239 


1241 


1242 


1243 


1245 


1216 


1247 


1251* 


1254 


1237 


XP 


15# 
44 
76 
91 

114 

132 

158 

181 

218 

242 

269 

311 

346 

584 

657 

716 
2090 


2 3 

4 5 

77 

92 

115 

137 

159 

182 

219 

243 

271 

315 

355 

5«9 

658 

724 

2091 


24 

46 

78 

93 

116 

140 

162 
183 
220 
244 
274 
316 
368 
590 
663 
725 
2093 


25 

48 

79 

94 

117 

141 

163 

184 

221 

245 

281 

318 

369 

595 

668 

733 

2095 


26 

49 

81 

95 

119 

144 

164 

185 

222 

246 

285 

324 

370 

596 

669 

734 

2116 


28 

50 

82 

98 

120 

.-.4 6 

:.7 

195 
223 
24 7 
286 
325 
541 
600 
675 
735 
2117 


29 

53* 

83 

1"4 

122 

147 

171 
2^3 
224 
248 
288 
326 
542 
6"5 
6*>5 
739 
2118 


31 
59 
84 
105 
123 
H8 
172 
205 
226 
219 
291 
329 
564 
610 
690 
775 
2119 


32 

62 
85 
107 
124 
152 
173 
206 
227 
250 
295 
330 
565 
616 
694 
820 
2120 


34 
65 
86 
108 
125 
153 
174 
213 
231 
252 
29B 
334 
566 
621 
703 
93 4 
2121 


36 

67 

87 

109 

126 

154 

175 

214 

232 

257 

299 

335 

567 

626 

704 

1037 

2122 


38 

71 

88 

110 

127 

155 

176 

215 

239 

258 

301 

340 

573 

636 

709 

1171 

2123 


42 

72 

89 

111 

129 

156 

177 

216 

240 

260 

309 

343 

578 

644 

714 

1231 

2124 


43 
7 5 

90 
112 
130 
157 

178 
217 

241 

268 
310 
345 
5o3 
656 
715 
2069 
22«}6 



